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PREFACE 


This revision of the PDP-15 FOCAL Programming manual is a technical update of the first Edition. Two new 
chapters, 7 and 8, have been added. Pages containing significant changes have been identified with the notation 
“CHANGE 1 ” at the bottom of the page, as on this page. 

FOCAL (Formula C4Zculator) is an interactive service program designed to solve numerical problems of any 
complexity. 

This manual is designed to allow the reader to master and apply the FOCAL language within hours. 

Chapter 1 through 3 of this manual describe the structure and use of the FOCAL language (particularly in the 
formulation and solution of numeric problems). 

Chapter 4 contains demonstration programs which illustrate the many features and applications of FOCAL. The 
reader, by running these programs using different variables, can more fully realize the power and flexibility of 
FOCAL. 

Chapters 5 and 6 describe advanced user-library storage and retrieval functions and user-defined FOCAL functions. 
The FOCAL library functions permit the storage of lengthy programs by the use of “chaining.” User defined 
functions enable frequently used operations to be called (requested and performed) by a single command. 

Chapter 7 describes FOCAL data functions which permit the user to store and then retrieve data on auxiliary 
Input /Output devices other than the Teletype.® 

Chapter 8 describes FOCAL multi-user functions for use in a Background/Foreground environment. 

NOTE 

The terms BASIC I/O Monitor and the ADVANCED 
Monitor, as used in this manual, refer to PDP-15 software 
systems. Use of other software systems, e.g. PDP-9 BANK 
MODE, is noted where pertinent. 

OVERALL PDP-15 DOCUMENTATION STRUCTURE 

A tree-type block diagram of the overall “PDP-15 Family of Manuals” is illustrated on page viii. A brief description 
of the contents and the order number of each manual shown in the diagram are presented on page ix. 

ORGANIZATION OF PDP-15 SOFTWARE MANUALS 
There are two basic categories of PDP-15 software manuals: 

a. Unique, single-system, manuals which contain information concerning only one of the four available 
PDP-15 systems. This category consists of detailed software system descriptive manuals, each with an 
associated operational command summary. An example of this class of manual would be the “PDP-15/ 10 
Software System” manual and its associated “PDP-15/10 Users’ Guide.” 

b. Common, multi-system, manuals that describe utility, language, application and other PDP-15 programs 
which may be employed in one or more of the four available PDP-15 systems. Some examples of this type 
of manual are the PDP-15 “Utility,” “MACRO-! 5 Assembler” and “STA.TPAX” manuals. 


©Teletype is a registered trademark of Teletype Corporation. 
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CHAPTER 1 
INTRODUCTION TO FOCAL 


FOCAL is an on-line, interpretive service program designed to assist scientists, engineers, and students in solving 
complex numerical problems. The language consists of concise, imperative statements; mathematical expressions 
are typed in standard notation. 

FOCAL puts the full calculating power and speed of the computer at the user’s fingertips. With FOCAL, the user 
can easily generate mathematical models, plot curves, solve sets of simultaneous equations in n-dimensional arrays, 
and much more. Examples of various problems that FOCAL is capable of solving are described in Chapter 4. 

1.1 HARDWARE REQUIREMENTS 

FOCAL can be run on any PDF- 15 computer with at least 8K core memory, a Teletype® (Model KSR 33 or KSR 
35) and a high-speed reader and punch. In such a system, FOCAL runs under the control of the Basic I/O Monitor. 
Extra memory may be added by use of a compatible Extended Arithmetic Element (EAE) and Automatic Priority 
Interrupt options. 

For use of the Advanced Monitor some form of mass storage must be added to the basic system, as follows: 

a. Type TC02 DECtape Control with two Type TU55 DECtape Transports, or 

b. Type RB09 Fixed-Head Disk System 

Input/output routines are provided for these devices as required. In addition, this system can take full advantage of 
any extra memory, central processor options, and additional I/O options. 

1.2 LOADING PROCEDURE 
1.2.1 Basic I/O Monitor System 

The Linking Loader paper tape is used to load FOCAL. When the Loader has been entered and started (refer to 
software Users’ Guide supplied with the system), it types 

LOADER Vnn 

where Vnn is the version number. Place the FOCAL binary tape in the paper tape reader, and momentarily depress 
the tape feed button to ready and to settle the tape firmly in the tape reader. Then, after loader’s > type 

> P^ FOCAL 


©Teletype is a registered trademark of Teletype Corporation. 
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followed by the ALT MODE key. When the FOCAL program has been loaded, the Loader types 
tP 

Load the FNEW tape, or a user defined FNEW tape (see Chapter 6), followed by the system library, and type 
CTRL P after each tP typed by Loader. The CTRL P notation indicates depressing the appropriate letter key (in 
this case, P) while holding down the control key. 

Normally, only tapes 1, 4A or 4B, and 5 A or 5B from the system library are needed. Library tapes 2 and 3 contain 
card reader, line printer, and display handlers. 

When loading is complete, type 

CTRLS 

after Loader’s t S and FOCAL will respond with FOCAL Vnn and an asterisk (*). FOCAL is now ready to accept 
commands. Printout to this point is similar to the following: 


LOADER V7A 
>P-FOCAL 


P FOCAL 

U76A 

P FvMEW 

11612 

tPt p 


P PPA. 

11021 

tPtP 


P .BK 

10765 

P DSQRT 

10675 

P DSIsNI 

10662 

P DCOS 

106Ai 

P DA TAN 

10626 

P DEXP 

10613 

P DLOG 

10572 

P .DD 

10A24 

P *08 

10304 

p 

10203 

P .DF 

10044 

P .DC 

07775 

P .DA 

07726 

tPtP 


TPr F 


P DOUBLE 

07523 

P REAL 

06554 

P .CB 

06534 


FDCAi. V6A 


The FOCAL loading procedure above may be used each time the user runs FOCAL; however, to facilitate 
reloading, the PUNCH utility program, distributed as a binary program in the Basic I/O Monitor System, may be 
used. 

The PUNCH utility program permits preparation of a single paper tape containing the I/O Monitor, system library 
programs, FOCAL, and FNEW. The user need only load this single tape (HR: 17720 of the highest core bank) for 
further FOCAL operation. The PUNCH utility program is loaded after FOCAL is first in core and ready to accept 
commands. 


1-2 
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1.2.2 Advanced Monitor System 

FOCAL may be loaded with the Linking Loader and with Execute after the A^dvanced Monitor has been loaded. 
The Linking Loader is used with 12K, or greater, systems and Execute with 8K systems. 

To start the Advanced Monitor, place the system and program tapes on the appropriate DECtape units as described 
in the applicable System User’s Guide. After the Monitor Bootstrap loader is loaded, Monitor types 

KM15 Vnn 

$ 

at the left margin of the teleprinter page. 

Execute or the Linking Loader now requires assignment of .DAT (Device Assignment Table) slots >1 and -4. 
FOCAL requires assignment of .DAT slots +3, +7 (input) and +5, +10 (output). (.DAT slot assignments for FOCAL 
are summarized in Appendix E.) An example of the Advanced Monitor Command that must be typed after 
Monitor’s $ follows: 

$A DTE0 -1, -4/DTEl 3, 5, 7, 10 

This assignment translates as: 

Assign DECtape unit 0 (Advanced Monitor System tape is always placed on unit 0) to .DAT slots -1 and -4. Assign 
DECtape unit 1 to .DAT slots +3, +5, +7, +10. On the device assigned to .DAT -1, Execute and the Linking Loader, 
if used, expect to find the System Library. On the device assigned to .DAT slot -4, Execute expects to find the two 
execute files, FOCAL XCT and FOCAL XCU; and the Linking Loader, if used, expects to find the relocatable 
binary program, FOCAL BIN. 

FOCAL uses .DAT slot +3 for the library input function and .DAT slot +5 for the library output function (see 
Chapter 5 for FOCAL library commands). FOCAL uses .DAT slot +7 for DATA input function and .DAT slot +10 
for DATA output function. (Refer to Chapter 7 for detailed information about the DATA method of operating 
\wth FOCAL.) 

Use DECtape Handler E (DTE) for all the .DAT slots to ensure loading of only one DECtape handler in memory 
for both the Linking Loader or Execute and FOCAL. 

Two examples for loading FOCAL with the Advanced Monitor system follow. One is for those users with an 8K 
system and one for those users with a 1 2K, or greater, system. 

NOTE 

Formerly, FOCAL and FNEW were separate binary programs 
in the Advanced Monitor system and had to be called as 
FOCAL, FNEW after the Linking Loader was loaded. FNEW 
has been combined with FOCAL. Both are now loaded as 
shown in Example 2, below. 

Examples: (1) Execute (8K systems) is used in this example. After the .DAT slots are assigned, as above, Monitor 
types another $. Now type: 

$E FOCAL 

and depress the RETURN key. The teleprinter responds with 
EXECUTE Vnn 

and FOCAL starts to be loaded automatically. When FOCAL is loaded, the teleprinter responds 
with 

FOCAL 15 Vnn 


where Vnn is the version number. FOCAL is now ready to accept commands. 

(2). The Linking Loader (12K system, or greater) is used in this example. After the .DAT slots are 
assigned, as above, Monitor types another $. Now type 

$GLOAD 

and depress the RETURN key. The Loader types 
LOADER Vnn 

now type a P and a back arrow (P <-) and FOCAL after the Loader’s > 


CHANGE 1 1-3 



> P ^ FOCAL 


and depress the ALT MODE key. 


Teleprinter output format is as follows; 


KM I 5 

$A DTS0 -i,-4/DTSl 3,5,7,10 

$GLOAD 

LOADER V7A 


>?♦- FOCAL 


P 

FOCAL 

31762 

? 

FNSW 

31 610 

P 

.BK 

31554 

P 

DSQRT 

31464 

P 

D3IN 

31451 

P 

DC0^3 

31430 

P 

DATAN 

31415 

P 

DEX? 

31402 

P 

DLOG 

31361 

P 

.DD 

31 213 

P 

.D3 

31073 

P 

.DE 

30772 

P 

• DF 

30633 

P 

.DC 

30 564 

P 

.DA 

30 515 

P 

DOUBLE 

30312 

P 

RELEAE 

26736 

P 

.CE 

30272 


RDCALId V8A 
* 


1.3 RESTART PROCEDURE 

Restart is accomplished by the use of CTRL P (echoes tP). 

1.4 SAVING FOCAL PROGRAMS (Refer to Chapter 5 for full description) 

To save the current FOCAL program, type the following sequence of commands; where necessary, wait for FOCAL 
to type an * on the next line. 


'^LI BRARY 
^LIBRARY 
^LIBRARY 
*LIBRARY 
^LIBRARY 
* 


OUT NAME 
WRITE ”ERASE ALL 
WRITE ALL 
WRITE "* 

CLOSE 


This sequence does not destroy the current program. Execute an ERASE ALL before starting the program to clear 
all variables and prevent placing previous programs in the library along with the current program during current 
library storage (refer to sections 3.5 and 5.4.2). When a program is to be saved, Loader assignment must be to the 
proper output device. The assignment described in section 1.2.2 will output the program on DECtape. 

To loaa a saved FOCAL program, type: 

♦LIBRARY IN NAME 
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1.5 DATA INPUT/OUTPUT (Refer to Chapter 7 for full description) 

To use auxiliary I/O devices for data storage and retrieval, type the following sequence of commands: 

*DATA OUT NAME 
*DATA CLOSE 
♦DATA IN NAME 

This sequence will initialize and enter the named file for the data on a mass storage device, close the named file on 
that device, and then initialize a device under the given filename for data retrieval. 


CHANGE 1 
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CHAPTER 2 
FOCAL LANGUAGE 


After FOCAL has been loaded, the program types out 

FOCAL Vnn 
* 

to indicate that it is ready to accept commands from the user. Each time the user terminates a teletype line by 
depressing the RETURN key, or after FOCAL has performed a command, an * (asterisk) is typed to tell the user 
that FOCAL is ready for another command. 

2.1 ELEMENTARY COMMANDS 

One of the most useful commands in the FOCAL language is TYPE^ which instructs FOCAL to “type out the 
result of the following expression.” Then, the user types an expression after TYPE (following the asterisk which 
FOCAL typed) such as 

*TYPE 123.456+9.8765 


and presses the RETURN key; FOCAL types the answer. 

133.3325* 

SET is another useful command, which instructs FOCAL to “store this symbol and its numerical value; then when 
this symbol is used in an expression, insert the numerical value.” Thus, the user may type 

*SET A=3. 141592; SET 8 = 23.572; SET C=485.5 

and then use these symbols to identify the values defined in the SET command. 

*TYPE A+B+C 
512.2136* 


Symbols may consist of one, two, or three alphanumeric characters. The first character must be a letter, but must 
not be the letter F which refers to function names (Refer to Section 3.16). 


FOCAL is always checking user input for syntax errors (e.g., invalid commands, illegal formats, etc.). When an error 
is detected, FOCAL types an error message in the form of a question mark and code number to indicate the type of 
error. In the following example. 


t Any number appearing in a TYPE command must have its magnitude represented in 35 bits of mantissa; otherwise, FOCAL will type 
the ?27 error message and ignore your request. This error message will occur with an 11 or 12 digit number, depending on the 
magnitude of the number. The same is applicable for the ASK command. CHANGE 1 2 1 



*HELP 
? 10 

*TYPE 2++4 
?21 
* 

HELP is not a valid command and two plus signs (double operators) is an illegal operation. The complete list of 
error messages and meanings is given in Appendix B. 

2.2 OUTPUT FORMAT 

The FOCAL program is originally set to produce results snowing up to eight digits, four to the left of the decimal 
point (the integer part) and four to the right of the decimal point (the fractional part). Leading zeros are sup- 
pressed, and spaces are shown instead. Trailing zeros are included in the output to the limits of the format, as 
shown in the examples below. 

*SET A=77.77; SET 6=111111.1111^* SET C=39 
*TYPE 

77.7700 111111.11 39.0000* 

The output format may be changed if the user types 
*TYPE %X.YZ 

where the percent sign (%) is the format operator symbol, x is the total number of digits to be output and yz is the 
number of digits to the right of the decimal point. The values x and yz are positive integers, and the value of x 
cannot exceed 63 digits. The value yz is always written as a 2 digit number, (e.g., 03). For example, if the desired 
output format is 2 places to the left of the decimal point and five to the right the user types 

*TYPE %7.05^ 12.222222+2.37184 


and FOCAL types 


14. 59406* 

Notice that the format operator (%x.yz) must be followed by a comma, and that until the user changes the output 
format all results will be typed in the last specified format, i.e. %7.05. 

The results are calculated to nine digits. In some circumstances since rounding may place some uncertainty on the 
9th place, the user may need to account for the rounding. If the user types 

*TYFE %9.04> 123456.789 


FOCAL types 

1 23456. 789* 


Of the 9 available digits, priority is given to those to the left of the decimal point. 

In the following examples, the number 2848.5363 is typed out in several different formats. 
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*SET A=2848.5363 
*TYPE %7.03^ A 
2848 *536* 

*TYPE %8.04:» A 
2848 . 5363* 

*TYPE %9.05^ A 
2848 . 53630* 


If the user does not indicate the number of places in the iractional part of the number, only the integer part is 
printed. 

If the specified output form.at is too small to contain the integer portion of the number, FOCAL converts the 
number to floating point form, O.LE+mn, where E+mn indicates the mn^^ power of 10 of the number L printed as 
a number between 0.0 and 1.0 (refer to Section 2.3). 

*TYPE 7ol>, A 
0 .285E+04* 

If the specified format is larger than the number, FOCAL inserts leading spaces up to, but not including, the 
asterisk column. 


*TYPE %11^ A 
2849* 


Leading blanks and zeros in integers are always ignored by FOCAL, except tor numbers between 0.0 and 1.0, 
where a zero precedes the decimal point. 


*TYPE %8.04:. 0016:^ 0.016^ 00700 

16.0000 0.0160 0.0000 700.0000* 


2.3 FLOATING-POINT FORMAT 

The user may request output in exponential form which is called floating-point or E format. This notation is fre- 
quently used in scientific computations and is the format in which FOCAL performs its internal computations. 
The user requests floating-point format by including a % followed by a comma in a TYPE command. FOCAL will 
print out 0, a decimal point, a 9-digit number, the letter E, and the number of places to move the decimal point for 
standard notation. Until the user specifies another output format, all results are typed out in floating-point format. 

For example. 


*TYPE %.» 1 1 1 1 
0.111 100000E+04* 


is interpreted as .1111 times 10^, or 1111. Exponents can be used to ±999. The largest number that FOCAL can 
handle is ±0.999999983 times 10^^^, and the smallest is 0.999999983 times 


To demonstrate the ability of FOCAL to compute large numbers, find the value of 449 factorial by typing the 
following commands: 

*SET A=1 

*F0R I = l.,449; SET A=A*I 
*TYPE %>A 
0. 385193049E+998* 
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The FOR statement, which will be explained later, is used to set I equal to each integer from 1 to 449. 


2.4 ARITHMETIC OPERATIONS AND SYMBOLS 

FOCAL performs the usual arithmetic operations (addition, subtraction, multiplication, division, and 
exponentiation). These operations are written by using the following symbols: 


SYMBOL 

MATH 

NOTATION 

FOCAL 

t Exponentiation 


33 

3t3 (Power must be a positive integer) 

* Multiplication 


3-3 

3^3 

/ Division 


3-3 

3/3 

+ Addition » 

equal 

3+3 

3+3 

- Subtraction I 

priority 

3-3 

3-3 


These operations may be combined into expressions. When FOCAL evaluates an expression comprising several 
arithmetic operations, the priority follows the above list. 

Note that addition and subtraction have equal priority. Expressions with these two operators are evaluated from 
left to right. 

A+B*C+D is A+(B*C)+D not (A+B)*(C+D) nor (A+B)*C+D 
A*B+C*D is (A*B)+(C*D) not A*(B+C)*D nor (A*B+C)*D 

X/2*Y is -^not^yjv 

2 t 2 t 3 is 4* not 2» 


To perform exponentiation to a negative power, X-A^ use FEXP(A*FLOG< X > ). 

Expressions (except IF) to be evaluated by FOCAL may be enclosed in any properly paired parentheses, square 
brackets, or angle brackets. The IF statements, however, must be enclosed in parentheses. 

For expressions without IF statements: 


*SET A1=(A+B)*<M+N>*CX+Y] 

The left bracket ([) and the right bracket (]) enclosures are typed using the SHIFT and K keys and the SHIFT 
and M keys, respectively. 

For expressions that are nested, FOCAL computes the value of the innermost expression first and then works 
outward. 


*TYPE C2+<3'-C l*A] + 5>-2) 
0.400000000E+01 * 


Note that this number is expressed in floating-point format, as specified by the unmodified % symbol. 

2.5 ADDITIONAL SYMBOL INFORMATION 

The value of a symbolic name or identifier is not changed until the expression to the right of the equal sign is 
evaluated by FOCAL. Therefore, before it is evaluated, the value of a symbolic name or identifier can be changed 
by retyping the identifier and assigning it a new value. 
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=^SET Al = 3t2; SET A1=A1+1 
*TYPE %2^ A1 
10 * 

Symbolic names or identifiers must not begin with the letter F, (Refer to Section 3.16) 

The user can request FOCAL to type out all user defined identifiers, in the order of definition, by typing a dollar 
sign ($) after a TYPE command. (Refer to Section 3.1.) 

*TYPE 7ol.2.yS 

The user’s symbol table is typed out in the following manner: 


A@@(00)= 0.38Si931E+998 
I@@C00)= 450*0000 
AltlC00)= 10.00000 

* NOTE 

“A” and ‘T” defined in a previous example (on 
page 2-3) were not erased before going on to the 
present example. 


If an identifier consists of less than three letters, an @ is inserted as the second/third character in the symbol table 
printout, as shown in the example above. An identifier may be longer than three characters, but only the first three 
are recognized by FOCAL and stored in the symbol table. 

2.6 SUBSCRIPTED VARIABLES 

FOCAL always allows identifiers, or variable symbols, to be further identified by subscripts in the range ±131071 
(2^^ -1), which are enclosed in parentheses immediately following the identifier. For example, the following 
identifiers are subscripted: 

A (I) B(J,3) 

A subscript may also be an expression: 

*SET A1 CI+3*J)=2. 33 
*SET X2C5t 3*J)=8.20 

The ability of FOCAL to compute subscripts is especially useful in generating arrays for complex programming 
problems. A convenient way to generate linear subscripts is shown in Section 4.5. 

2.7 THE ERASE COMMAND 

To delete all of the symbolic names which are defined in the symbol table, except those in the COMMON area 
(Refer to Section 5.4), type ERASE. As FOCAL does not clear the user’s symbol table area in core memory when 
it is first loaded, it is good programming practice to type an ERASE command before defining any symbols. 

2.8 HANDLING TEXT OUTPUT 

Text strings are enclosed in quotation marks (“...”) and may include most teletype printing characters and spaces. 
The carriage return, line feed, and leader-trailer characters are not allowed in text strings. To instruct FOCAL to 
type an automatic carriage return line feed at the end of a text string, the user inserts an exclamation mark (!). 

*TYPE ”ALPHA” ! ’’BETA” ! ’’GAMMA” ! 

ALPHA 

BETA 

GAMMA 

* 

If only a carriage return is desired at the end of a text typeout, the user inserts a number sign (#). 

^'rs/otr I »» V V j- —ifjiii yni 

'I'lilLl.i It — ft / \ 

X + Y ^ Z 

* 


CHANGE 1 
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The number sign operator is useful in formatting output and in plotting another variable along the same coordinate 
(Refer to Section 4.7). 

2.9 INDIRECT COMMANDS 

Up to this point, only direct commands, executed immediately by FOCAL, have been discussed. In contrast, 
commands may be delayed to alter sequences, assign all variables or generate a lengthy program. These delayed 
execution statements are called indirect commands which are prefixed by a line number and are stored by FOCAL 
for later execution, usually as part of a sequence of commands. Line numbers must be in the range 1.01 to 99.99. 
The number to the left of the point is called the group number; the number to the right is called the step number. 
(The numbers 1.00, 2.00, etc., are illegal line numbers; they are used to indicate an entire group of lines.) For 
example, 


*ERASE ALL 
*1.1 SET A=3 
*1.2 SET B=8 
*1.3 TYPE 7o2.^ A+B 


To execute indirect commands the user types one of the direct commands GO, GOTO, and DO. 

The GO command causes FOCAL to go to the lowest numbered line to begin executing the program. If the user 
types a direct GO command after the indirect commands above, FOCAL will start executing at line 1.1. 


* GO 
1 1 * 


The GOTO command causes FOCAL to start the program by executing the command at a specified line number. 

*GOTO 1 .2 

1 1 * 

FOCAL started executing the program at line, 1.2 SET B=8, in the above example, and then continued to line 1.3. 

The DO command is used to transfer control to a specified step, or group of steps, and then return automatically to 
the command following the DO command. 

*ERASE ALL 

*1.1 SET A= l; SET B=2 
*1.2 TYPE STARTING ” 

*1.3 DO 3.2 

*2. 1 TYPE ” FINISHED ” 

*3. 1 SET A=3; SET B= A 
*3.2 TYPE A+B 

*G0 

STARTING 3 FINISHED 7* 

When the DO command at line 1.3 was reached, the command TYPE %1, A+B was performed and then the 
program returned to line 2. 1 and continued from there. 

The DO command can also cause FOCAL to jump to a group of commands and then return automatically to the 
normal sequence. 


*ERASE ALL 
*1.1 TYPE ”A” 
*1.2 TYPE ”B'* 
*1.3 TYPE 
*1.4 DO 5.0 
*1.5 TYPE ” END 


GO TO 6.1 
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*5. 1 TYPE ”D” 
*5.2 TYPE ”E” 
*6 • i TYPE • ■ • " 
*G0 

ABODE END .* 


When the DO command at line 1.4 was reached, FOCAL executed the group 5 lines and then returned to line 1.5. 

An indirect command, with the proper sequential line number, can be inserted in a program at any time before the 
direct execute command. For example. 


*ERASE ALL 

*4.8 SET A=1J SET B=2 
*6.3 TYPE %8.3.» B/C + A 
*4.9 SET C=3.4581 
*G0 

1 . 57 83523* 

where line 4.9 will be executed before line 6.3 and after line 4.8. FOCAL arranges and executes indirect commands 
in numerical sequence by line number. 

2. 1 0 ERROR DETECTION 

FOCAL checks all input commands for a variety of errors. If an error is detected, FOCAL types a question mark, 
followed by an error code and the appropriate line number if the error is in an indirect command. A complete list 
of these error codes is shown in Appendix B. 

The WRITE command without an argument causes FOCAL to print out the entire indirect program so that the user 
may check it for errors. 

The trace feature of FOCAL is valuable in program debugging. Any part of an indirect statement or program can be 
enclosed in question marks, and when that part of the program is executed, the portion enclosed in question marks 
will be printed out. If only one question mark is inserted the program is printed out from that point until 
completion. The trace feature is also used to follow program control and to create special formats (Refer to Section 
3.15). 

2.11 CORRECTIONS 

If the user types the wrong character, or several wrong characters, the RUBOUT key, which echoes a backslash (\) 
for each RUBOUT typed, is used to delete one character to the left each time the RUBOUT key is depressed. 


*ERASE ALL 

*1.1 RYPEWWTYPE X-Y 
*1 .2 SET X=12\3 
*WRITE 

C FOCAL V3A 
01.10 TYPE X-Y 
01.20 SET X= 1 3 

* 


Typing CTRL U (echoes an @) deletes everthing which appears to its left on the same line. 

*1 .3 TYPE 
*WRITE 

C FOCAL V3A 
01.10 TYPE X-Y 
01 .20 SET X= 13 

* 
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A line can be overwritten. Repeat the same line number and type the new command. For example, 


*14.99 SET C9CN+3)=15 
* 


is replaced by 


*14.99 TYPE C9/Z5-2 
*WRITE 14.99 
14.99 TYPE C9/Z5-'2 

* 


When WRITE is typed after corrections are made, FOCAL will print the indirect program as altered. With this 
feature, commands can be checked and a “clean” program printout can be obtained. Remember that all indirect 
input is printed when WRITE is typed. Therefore, it is useful to type ERASE ALL at the start of a new sequence. 
(Refer to Chapter 5 for storing programs.) The ERASE command with an argument' will delete aline or group of 
lines. For example, to delete line 2.21, the user types 


*ERASE 2.21 


To delete all of the lines in group 2, the user types 


*ERASE 2.0 


Used alone, without an argument, the ERASE command causes FOCAL to erase the user’s entire symbol table. 
FOCAL does not zero memory when loaded; consequently, it is good practice to type ERASE before defining 
symbols. The command ERASE ALL erases all user input, except COMMON variables. 

The MODIFY command is another valuable feature. It may be used to change any number of characters in a 
particular line, as explained in Section 3.14. 

2.12 ABBREVIATIONS 

All FOCAL commands (except COMMON and DATA) may be abbreviated to the first letter of the command. 
Thus, 

*TYPE 10, ! 


is equivalent to 


*T 10, ! 

2. 1 3 ALPHANUMERIC NUMBERS (Using Letters as Numbers) 

Numbers must start with a numeral but may contain letters. FOCAL interprets as a number any character string 
beginning with a numeral (0 through 9). An alphanumeric number is a string of alphanumeric characters (excluding 
symbols) which starts with a number. For example, 
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*0ABC 


233AT 


2836A1 


Each letter in an alphanumeric number is taken as a number (A through Z correspond to 1 through 26, 
respectively) except for E. 

The letter E denotes exponentiation to base 10 when used as a numeral. Alphanumerics after the letter E are taken 
as the exponent of the preceding alphanumerics. 


NOTE 


E denotes exponentiation; consequently, the number 5 
cannot be represented in alphanumeric form. 


A= 1 

J= 10 

S= 19 

B = 2 

K= 11 

T = 20 

C = 3 

L= 12 

U=21 

D = 4 

M= 13 

V=22 

E = (exponentiation) 

N= 14 

W = 23 

F = 6 

0= 15 

X = 24 

G=7 

P= 16 

Y = 25 

H = 8 

Q= 17 

Z = 26 

1 = 9 

R= 18 



An easy way to give FOCAL numerical valued letters is to start with the number 0, as in the following example. 


*TYP£ %> 0AB 
0- 120000000E+02* 


After 0, A=1 and B=2; thus, 0AB=12. Alphanumeric characters may be used in arithmetic operations. 


*TYPE 7oy 0AB+0C 
0* 1 50000000E+02* 


The letter E denotes exponentiation to base 10 when used as a numeral. Alphanumerics after the letter E are taken 
as the exponent of the preceding alphanumerics. Only one E is allowed in any one alphanumeric number. 


*TYPE %8> 0AED 
10000 * 

*TYPE %8:. 0SEC 
19000* 

* 


Alphabetic characters may be used when assigning numerical values to identifiers or variables in response to an ASK 
statement (Refer to Section 3.9 for a use of this feature and lines 3.20 and 3.30 of “Intercept and Plot of Two 
Functions” in Section 4.7 for an application). 
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CHAPTER 3 
FOCAL COMMANDS 


3.1 TYPE 

The TYPE command is used to compute and type out a text string, the result of an expression, or the value of an 
identifier. For example 

*4.14 TYPE 3.2*6'-(36.2*65)/2.348 
*4.15 TYPE 3T6+( 7.23/4.2753)*73.4 
* 


Several expressions can be computed by a single TYPE command; commas are used to separate each expression. 

*1.1 TYPE % 6 » 03 j Al*2:r 2tl2> 2.28*83.636 
*D0 1 . 1 

0.000 4096.00 190.690* 


The output format (%) can be included in the TYPE statement as shown in the example above and as explained in 
Section 2.2. 

The user may request a typeout of all identifiers which he has defined by typing TYPE $ and pressing the 
RETURN key. This causes FOCAL to type out the identifiers with their values, in the order in which they were 
defined. The $ can follow other statements in a TYPE command, but must always be the last operation on the line. 


*ERASE ALL 

*SET L=33; SET B=22; SET Q=385 
*SET A3=94.3^ SET A7T=2.485 
*TYPE %5.03..$ 


L@@(00)= 
B@@ C 00 ) = 
Q@@ ( 00 ) = 
A3@C00)= 
A7T(00)= 
* 


33.000 

22.000 
385.00 
94.300 

2.485 
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A text string enclosed in quotation marks can be included in a TYPE command, and a carriage return can replace 
the closing quotation mark: 


*TYPE ”X SQ'JAREID 

X SQUARED* 

A text string or any FOCAL command or group of commands cannot exceed the capacity of a teletype line (72 
characters for KSR33 Teletype). A command cannot be continued on the following line. To print out extended 
text, each line must start with a TYPE command. 

FOCAL does not automatically perform a carriage return after executing a TYPE command. To insert carriage 
return-line feed characters type an exclamation mark (!). To insert a carriage return without a line feed, type a 
number sign (#). To insert spaces, enclose them in quotation marks. These operations are useful for format output. 


3.2 ASK 

The ASK command is normally used in indirect commands to allow the user to input data at specific points during 
the execution of the program. The ASK command is written in the form: 

*11.99 ASK 

When step 1 1.99 is encountered by FOCAL, it types a colon (:). Then, the user types a value in any format for the 
first identifier, followed by a carriage return or ALT MODE. The ALT MODE key continues the text on the same 
line. FOCAL then types another colon, and the user types a value for the second identifier. This continues until all 
the identifiers or variables in the ASK statement have been given values. 

*1 1 .99 ASK 
*D0 11.99 

: 4 : 4 : 8 * 

In the above example, the user typed 4, 4, and 8 as the values, respectively, for X, Y, Z. 

FOCAL recognizes each value when its terminator (i.e., carriage return or ALT MODE) is typed. Therefore a value 
can only be changed before its terminator is typed. This is done by using RUBOUT or CTRL U. 

A text string can be included in an ASK statement if the string is enclosed in quotation marks. 


*1.1 ASK ”HOW MANY APPLES DO YOU HAVE?’’ APPLES 
*D0 1.1 

HOW MANY APPLES DO YOU HAVE?: 25 
*TYPE APP 
0.250030000E + 0‘^* 

The identifier APP (FOCAL recognized only the first three characters of the identifier APPLES.) now has the value 
25. When APP is used, it will equal 25. Its value m.ay be reassigned if it is asked for again. 

*ASK APP 
: 30 

*TYP£ APP 
0.300000000E+02* 

Alphabetic characters can be used if numerical values are assigned to identifiers or variables: 


*1.1 ASK A; TYPE %4> A 
*D0 1 . 1 
: ABCD 
1234* 
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When the user typed ABCD and RETURN, FOCAL typed the numerical value of ABCD (Refer to “Alphanumeric 
Numbers”, Section 2.13). 

Alphabetic responses are especially useful for keyboard responses to FOCAL statements. A YES or NO answer can 
be typed by the user during program execution in response to a program question, as explained in Section 3.9. 

3.3 WRITE 

A WRITE command without an argument causes FOCAL to write out all indirect statements which the user has 
typed. Indirect statements are those preceded by a line number. 

A group of line numbers, or a specific line, can be typed out with the WRITE command using arguments, as shown 
below. 


*7.97 WRITE 2.0 
*7.98 WRITE 2. 1 
*7.99 WRITE 


(FOCAL types all group 2 lines) 
(FOCAL types line 2.1) 

(FOCAL types all numbered lines) 


3.4 SET 

The SET command is used to define identifiers. When FOCAL executes a SET command, the identifier and its 
value are stored in the user’s symbol table. When the identifier is encountered in the program, the value is 
substituted for the identifier. 

*ERASE ALL 

*4.1 SET A=394.83; SET B=4.373 

*4.2 TYPE %>A+B 

*G0 

0. 399203000E+03* 

An identifier can be set equal to previously defined identifiers, which can be used in arithmetic expressions. 

*3.7 SET G=(A+B)*2t6 

3.5 ERASE 

An ERASE command without an argument is used to delete all identifiers except those in COMMON (Refer to 
Section 5.4 for the ERASE COMMON command.) with their values, from the symbol table. 

If the ERASE command is followed by a group number or a specific line number, a group of lines or a specific line 
is deleted from the program. 

*ERASE 2.0 (deletes all group 2 lines) 

*ERASE 7.11 (deletes line 7.1 1) 

The ERASE ALL command erases all the user’s input. In the following example, an ERASE command is used to 
delete line 1.50. 

*ERASE ALL 

* 1 .2 SET B=2 
*1.3 SET C=34 
*1.4 TYPE B+C 
*1.5 TYPE C-B 
*ERASE 1.5 
*WRITE 

C FOCAL V3A 
01 .20 SET B=2 
01.30 SET C=34 
01 .40 TYPE B+C 

* 

3.6 GO 

The GO command is used to execute the program which starts with the lowest numbered line. The remainder of 
the program is executed in line number sequence. Line numbers must be in the range 1.01 to 99.99. 
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3.7 GOTO 


The GOTO command causes FOCAL to transfer control to a specific line in an indirect program. It must be 
followed by a specific line number. After executing the command at the specified line, FOCAL continues to the 
next higher line number, executing the program sequentially. 


*ERASE ALL 
* 1 • 1 TYPE ”A’* 
*1.2 TYPE ”B” 
*1.3 TYPE 
*1.4 TYPE 
*GOTO 1.2 
BCD* 


3.8 DO 

The DO command transfers control momentarily to a single line, a group of lines, or an entire indirect program. If 
transfer is made to a single line, the statements on that line are executed, and control is transferred back to the 
statement fojlowing the DO command. Thus, the DO command makes a subroutine of the lines to which control is 
transferred, as shown in the following example: 

*ERASE ALL 
*1.1 TYPE ’’F” 

*1.2 DO 2.3; TYPE 
*1.3 TYPE *’A” 

*1.4 TYPE ”L” 

*1 .5 QUIT 
*2.3 TYPE 
*G0 

FOCAL* 

If a DO command transfers control to a group of lines, FOCAL executes the group sequentially and returns control 
to the statement following the DO command. 

If DO is written without an argument, FOCAL executes the entire indirect program in the same manner as a GO 
command. 

DO commands cause specified portions of the indirect program to be executed as closed subroutines. These 
subroutines can also be terminated by a RETURN command. 

A GOTO or an IF statement within a DO subroutine modifies the program execution sequence. 


3.9 IF 

To transfer control after a comparison, FOCAL contains a conditional IF statement in the form IF (m) x, y, z; m is 
an expression or variable, and x, y, z are three line numbers. The expression is evaluated, and the program transfers 
control to the first number, x, if the expression is less than zero; to the second line numbei, y, if the expression 
equals zero; or to the third line number, z, if the value of the expression is greater than zero. 


*2.1 TYPE ’*LESS THAN ZERO*'; QUIT 
*2.2 TYPE "EQUAL TO ZERO"; QUIT 
*2.3 TYPE "GREATER THAN ZERO"; QUIT 
*IF (25-25) 2. 1;.2.2;.2.3 
EQUAL TO ZERO* 


In the above example, the parenthetical expression equals zero; consequently, line 2.2 was executed. Note that an 
IF statement must be enclosed in parentheses. 

The IF statement can be shortened by terminating it with a semicolon or carriage return after the first or second 
line number. If a semicolon follows the first Hne number, the expression is tested, and control is transferred to that 
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line if the expression is less than zero. If the expression is not less than zero, the program continues with the next 
statement-. 


*2.20 IFCX) i .8;TYPH: 

In the above example, when line 2.20 is executed, if X is less than zero, control is transferred to line 1.8. If not, C 
is typed out. 

*3.19 IFCB) 1 .8-» 1 .9 
*3.20 TYPE B 

In the above example, if B is less than zero, control goes to line 1.8, if B is equal to zero, control goes to line 1.9. 
If B is greater than zero, control goes to the next statement (in this case, line 3.20), and the value of B is typed. 

In programs that require a keyboard response (as in Section 4.7 line 3.2), it is useful to determine if the answer 
by the user to an ASK question is YES or NO. Alphabetic responses used with an IF statement permit one of two 
possible commands to be executed, depending on the user’s answer. For example: 


IF (answer-0 YES) 1 . 1 , 2. 1 , 1.1 

where answer is YES or NO, as typed by the user. The next command depends on whether answer is YES (in which 
case, answer-0YES equals 0, and line 2. 1 is executed) or NO (producing a nonzero result and moving program 
execution to line 1.1). 


For example, 

*1.1 TYPE ”D0 YOU WANT A LINE?*'>! 
*1.2 ASK ’’TYPE YES OR N0'SANS:»! 
*1.3 IF CANS-0YES) 2.1:.2.2,2.1 
*2.1 QUIT 

*2.2 TYPE ” ", 

*2.3 GOTO 1 . 1 
*G0 

DO YOU WANT A LINE? 

TYPE YES OR N0:YES 


DO YOU WANT A LINE? 

TYPE YES OR N0:N0 

If a GOTO or an IF command is executed within a DO subroutine, two actions are possible: 

a. If a. GOTO or IF command causes transfer to a line inside the DO group, the remaining commands in that 
group are executed as in any subroutine before returning to the command following the DO command. 

b. If transfer is to a line outside the DO group, that line is executed and control is returned to the command 
following the DO command unless that line contains another GOTO or IF. 

*ERASE ALL 

*1.1 TYPE "A"j SET X=-l; DO 3.1; TYPE "D”; DO 2 
*1.2 DO 2.0 
*2. 1 TYPE ”G” 

*2.2 IF (X) 2.5>2.6,2.7 
*2. 5 TYPE ”H" 

*2.6 TYPE "I" 

*2.7 TYPE "J" 

*2.8 TYPE ”K” 

*2.9 TYPE % 2.01,X; TYPE " SET X=X+1 
*3.1 TYPE ”B"; GOTO 5.1; TYPE "F” 

*5. 1 TYPE ”C” 

*5.2 TYPE "W” 

* GO 

ABCDGHI JK- 1 .0 GIJK 0.0 GJK 1.0 BCW* 
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3.10 RETURN 


The RETURN command is used to exit from a DO subroutine. When a RETURN command is encountered during 
execution of a DO subroutine, the program exits from its subroutine status and returns to the command following 
the DO command that initiated the subroutine status. 

3.11 QUIT 

A QUIT command causes the program to halt and return control to the user. FOCAL types an asterisk and the user 
can type another command. 

3.12 COMMENT 

Beginning a command string with the letter C (except for COMMON) will cause the remainder of that line to be 
ignored to allow insertion of comments into the program. Such lines are skipped over when the program is 
executed, but are typed out by a WRITE command. A program that is well documented with comments is more 
meaningful and easier to understand than one without comments. 

3.13 FOR 

This command is used for convenience in setting up program loops and iterations. The general format is 
*F0R A=B.. C.» D; (COMMAND) 

The identifier A is initialized to the value B. Then, the command following the semicolon is executed. When the 
* command has been executed, the value of A is incremented by C and compared to the value of D. If A is less than 
or equal to D, the command after the semicolon is executed again. This process is repeated until A is greater than 
D; then, FOCAL goes to the next sequential line. 

The identifier A must be a single variable. B, C, and D can be either expressions, variables, or numbers. If a comma 
and the value C are omitted, it is assumed that the increment is one. If C,D is omitted, it is handled like a SET 
statement and no iteration is performed. 

The computations involved in the FOR statement are done in floating-point arithmetic, and it may be necessary, in 
some circumstances, to account for this type of arithmetic computation. 

Example 1 below is a simple example of how FOCAL executes a FOR command. Example 2 shows the FOR 
command combined with a DO command. 


Example 1: 


*ERASE ALL 

*3. 1 1 SET A=383. 383 

*3.12 FOR B=20^10>70; TYPE %7.03^ "B IS ” B+A> ! 
*G0 

B IS 403-383 

B IS 413.383 

B IS 423.383 

B IS 433.383 

B IS 443.383 

B IS 453.383 

* 

Example 2: 


*1.1 

FOR X=l>2>9; 

DO 2.0 

*1.2 

GOTO 3.1 


*2. 1 

TYPE ! ” 


*2.2 

SET A=X+100. 

00 

*2.3 

TYPE ! ” 

"%5> 

*3. 1 
*G0 

QUIT 
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X 1 

A 101 

X 3 

A 103 

X 5 

A 105 

X 7 

A 107 

X 9 

A 109* 

If two FOR statements are put on one line, the second FOR statement is performed in full for each incrementation 
in the first FOR statement. 

3.14 MODIFY 

Frequently, only a few characters in a particular line require changes. To facilitate this job, and to eliminate the 
need to replace the entire line, FOCAL has a MODIFY command. For example, to modify the characters in line 
5.41, the user types MODIFY 5.41 and then depresses RETURN key. The program then waits for the user to type 
the character he wishes to modify. After the user has typed the search character, the program types out the 
contents of that line until the search character is typed. 

At this point, the user has seven options: 

a. Type In new characters in addition to the ones that have already been typed out. 

b. Type ALT MODE to continue the search to the next occurrence, if any, of the same search character. 

c. To change the search character, type CTRL BELL and the new search character as at the beginning of the 

MODIFY command. 

d. Use the RUBOUT key to delete one character to the left each time RUBOUT is depressed. 

e. Type a CTRL U to delete the line over to the left margin, but not the line number. 

f. Type carriage return to terminate the line at that point, removing the text to the right. 

g. Type a LINE FEED to save the remainder of the line. 

The ERASE ALL and MODIFY commands are generally used only in immediate mode because they return to 
command mode upon completion. 

During command input, CTRL U deletes the line numbers as well as the text if the CTRL U is the right-most 
character on the Hne. However, when using the MODIFY command the line number is not deleted by the 
use of CTRL U. Note the error in line 7.01 . 


*7.01 JACK AND HILL WRNT UP THE GILL 
*N0DIFY 7.01 

HJACK AND HNJRILL WR\EGNT UP THE G\H 

ILL 


*WRITE 7.01 

07.01 JACK AND JILL WENT UP THE HILL 


* 


To modify line 7.01, the user typed an H to indicate the character to be changed. FOCAL stopped typing when it 
encountered the search character, H. The user typed the RUBOUT key to delete the H, and then typed the correct 
letter, J. The user then typed CTRL BELL key followed by the R, the next character to be changed. The RUBOUT 
deleted the R and the user typed E. Again a serach was made (this time for the G), and the G was changed to H. 
The user typed a line feed to save the remainder of the line. 

When the MODIFY command (or another command which alters the stored indirect program) is used, the values in 
the user’s symbol table (except those defined as COMMON) are reset to zero. Therefore, if the user defines his 
symbols in direct statements and then uses a MODIFY command, the values of his symbols are erased and must be 
redefined. 

However, if the user defines his symbols by indirect statements prior to using a MODIFY command, the values are 
not erased because these symbols are not entered in the symbol table until the statements defining them are 
executed. 
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In the example below, notice that the values of Y and Z were set using direct statements. The use of the MODIFY 
command reset their values to zero and listed them after the defined symbols: 

*ERASE ALL 
*SET Z=9 
*S£T Y=8 
*1.1 SET X=3 
*1 .2 SET W=4 

*1.3 TYPE W+X+Y+Zi TYPE U TYPE $ 

*M3DIFY 1 . 1 
S SET X=5 

*G0 

0.900000000E+01 

X@@(00)= 0. 500000000E+01 
W@@(00)= 0. 400000000E+01 
Y@@(00)= 0.000000000E+00 
Zi3@ (00 ) = 0 . 00000 000 0E+ 00 
* 

3.15 USING THE TRACE FEATURE 

As noted in Section 2.10, the trace feature is useful in checking an operating program. Those parts of the program 
which are enclosed in question marks are printed out as they are executed. (The trace feature is illegal for use in the 
multi-user FOCAL environment; see Chapter 8.) 

In the following example, parts of three lines are printed. 

*ERASE ALL 

*1.1 SET A^2 

*1 .2 SET B=5 

*1.3 SET C=3 

*1.4 TYPE %2^ ?A+B-C?>! 

*1.5 TYPE ?B+A/C?^ ! 

*1.6 TYPE ?B-C? 

*1.6 TYPE 7B-C/A? 

*G0 

A+B-C 4 
B+A/C 6 
B-C/A 4* 

Also, GO? will trace the program starting with the lowest numbered line, provided no other question marks are 
present in the program. 

3.16 INTERNAL FUNCTIONS 

The internal functions provide extended arithmetic capabilities. User defined external functions are described in 
Chapter 6. A standard function call consists of four letters, beginning with the letter F and followed by a 
parenthetical expression. 

The following are the internal functions: 

a. The square root function (FSQT) computes the square root of the expression within parentheses. 


*TYPE %;,ESQT(43.489) 
0 . 659461 902E + 0 1 * 
*TYPE ESQT(2.333) 
0.152741612E+01* 
*TYPE FSQT(3718) 

0 . 609754049E+02* 
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b. The absolute value function (FABS) outputs the absolute or positive value of the number in parentheses. 


*TYPE %> FABS(-394) 
0 . 394000000E+03* 
*TYPE FABSC-.93) 
0.9300000002+00^ 
*TYPE FABSC73) 
0.730000000E+02* 


c. The sign part function (FSGN) outputs the sign part ( + or - ) of a number and the interger part becomes a 1 . 

Zero is considered a positive number. 

*TYPE FSGNC -283. 3) 

-0. 1000010000E+01* 

*TYPE FSGN(0.00) 

0. 100000000E+0 1* 

*TYPE FSGiM(-0.38) 

-0 . 100000000E+0 1* 

d. The integer part function (FITR) outputs the integer part of a number up to ± 131071 (2^ '^-1). 

*TYPE %:»FITR(-34.8) 

-0 .340000000E+02* 

*TYPE FITRC0 .73) 

0 .000000000 E + 00* 

*TYPE FITR(374.92) 

0 .374000000E + 03* 

e. The random number generator function (FRAN) computes a nonstatistical pseudo-random number be- 
tween -1 and +1 (Most numbers fall in the range 0 to -i-l.). 

*TYPE FRANC ) 

0. 1 10626628E-03* 

*TYPE FRANC ) 

0. 129700202E-03* 

* 

f. The exponential function (FEXP) computes e ( e = 2.718281) to the power within parentheses. 

*TYPE FEXPC27) 

0.532048241E+12* 

*TYPE FEXPC2.348) 

0. 104646 196E+02* 

*TYPE FEXPC0.374) 

0. 145353715E+01* 

* 

g. The sine function (FSIN) calculates the sine of an angle expressed in radians. 

*TYPE FSIN(3. 10) 

0.41 5S06620E-01* 

*TYPE FSIN (0.278) 

0.274432986E+00* 

*TYPE FSINC 1 .272) 

0.95569 1 507E+00* 

FOCAL requires that angles be expressed in radians; thus, to find a function of an angle in degrees, the conversion 
factor, 7r/180, must be used. To find the sine of 10 degrees: 

*SET PI=3. 14159; TYPE F SI N C 1 0*PI / 1 80 ) 

0. 173648033E+00* 
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h. The cosine function (FCOS) calculates the cosine of an angle expressed in radians. 


*TYPE %> FC0SC2*PI) 
0 . 100000000+01 
*TYPE FCOSC .3628) 

0 .934906788E+00* 
*TYPE FCOS (1.37) 

0 . 1 99449720E+00* 


i. The arctangent function (FATN) calculates the angle in radians the tangent of which is the argument within 
parentheses. 

*TYPE 7o^ FATNC 1.000) 

0.785398163E+00*, 

*TYPE FATNC23.44)' 

0. 1 52816007E+01* 

*TYPE FATN(0.728) 

0.629271798E+00* 


j. The logarithm function (FLOG) computes the natural logarithm (loge) of the number within parentheses. 

*TYPE %> FL0GC238. 48467) 

0. 547430503E+0i* 

*TYPE FLOG(0.2876) 

-0. 124618465E+01* 

*TYPE FLOGC 1 .23) 

0.207014169E+00* 
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CHAPTER 4 

EXAMPLES OF FOCAL PROGRAMS 


4.1 TABLE GENERATION USING FUNCTIONS 

The ability to evaluate simple arithmetic expressions and to generate values with the aid of internal functions is one 
of the first benefits to be derived from learning the FOCAL language. In the example that follows, a table of sine, 
natural logarithm, and exponential values is generated for a series of arguments. As the user becomes more familiar 
with these functions, he can easily combine them with standard arithmetic operations and evaluate any given for- 
mula for a single value or for a range of values. 


In this example, line *1.01 outputs the desired column headings. Line *1.10 is the loop to generate values for I, 
beginning with the value 1.00000000 ana continuing in increments of .00000010 through the value 1.00000100; 
the DO 2.05 command at the end of this second line causes the various functions to be executed for the I 
arguments. The output format %9.08 in line 2.05 specifies that all output results up to the next % symbol are to 
appear in fixed-point format with one digit position to the left of the decimal point and eight digit positions to the 
right; the second % symbol reverts the output mode back to floating point for the remaining values FLOG and 
FEXP. Line 01.20 (optional) returns control to the user. 

The following techniques are apparent in line *2.05 of this example: 

a. FOCAL commands can be abbreviated to the first letter of the command followed by a space, as shown by 
the use of T instead of TYPE. This technique can be used to shorten command strings. 


b. Arguments can be enclosed in various ways. This feature is useful in matching correctly when a number of 
enclosures appear in a command. 


c. Spaces can be inserted in an output format by enclosing the appropriate number of spaces within quotation 
marks. This procedure is recommended to improve the readability of the output results. 


d. The use of very small loop increments (in this example .0000001) eliminates the need to interpolate 
between table values of trigonometric functions. FOCAL is usually accurate to nine significant digits but 
rounding in certain cases may place some uncertainty on the 9th place. Thus, the user, in some circumstances, 
may need to account for the rounding. 
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E’ 


*1 .01 T " I 
*1.10 FOR 1 = 1 
*1 .20 QUIT 
*2.05 T %9.08> 
*GO 

I 

1.00000000 0 
1 .00000010 0 
1.00000020 0 
1 .00000030 0 

1.00000040 0 

1 .00,000050 0 

1 .00000060 0 
1.00000070 0 

1.00000080 0 
1.00000090 0 

1.00000100 0 

* 


SINE 


84147099 

0. 

84147104 

0. 

84147109 

0. 

841471 1 5 

0 . 

84147120 

0 . 

84147126 

0 . 

84147131 

0 . 

84147136 

0 . 

84147142 

0 . 

84147147 

0 . 

841471 53 

0. 


LOG 

806929521E~10 
999785677E-07 
1 99876442E-06 
299733971E-06 
39963 1 845E-06 
499529720E-06 
599427595E-06 
699285i23E~06 
7991 82998E-06 
899040526E-06 
998978747E-06 


’SFEXPCn^F ! 


E 


27 

1 

82 

81 83E+01 

27 

1 

82 

8210E+01 

27 

1 

82 

8237E+01 

27 

1 

82 

82 64 E +01 

27 

1 

82 

82 92E+01 

27 

1 

82 

7319E+01 

27 

1 

82 

8346E+01 

27 

1 

82 

8373E+01 

27 

1 

82 

8400E+01 

27 

1 

82 

8427E+01 

27 

1 

82 

8454E+01 


SINE LOG 

.000000 W 1 .000001 J DO 2.05 

!:»'* ”^FSIN(I):»” ”>%:»FLOG<I>:.” 


0 . 
0 . 
0 . 
0 . 
0 . 
0 . 
0 . 
0 . 
0 . 
0 . 
0 . 


*’ ! 


4.2 FORMULA EVALUATION FOR CIRCLES AND SPHERES 

In this example, FOCAL is used to calculate, label, and output geometric values for an indefinite number of radii 
typed in by the user. 

Given a radius, R, FOCAL can calculate such values as: 

a. circle diameter: 2R 

b. circle area: ttR^ 

c. circle circumference: 27rR 

d. sphere volume: 47rR^/3 

e. sphere surface area: 47rR^ 


Although inches are used in this example, conversions to other systems (metric, for example) could 
be easily incorporated into the program, without the need for hand-calculated conversions. 


The program is very straightforward. ASK is used to allow the user to type in the radius value to be used in the 
calculations. SET is used to supply the value of tt. TYPE is used for all calculations and output. If a value (e.g., tt in 
this example) is to be entered once and then used in repeated calculations, it should be entered by a SET command 
which is outside the calculation loop; otherwise, the variable must be set at the beginning of each pass through the 
loop. If the value of the variable changes during each iteration, however, then it must be calculated either by a SET 
or TYPE command within the loop. 


The use of the GOTO command (line *1.50) results in an infinite loop of lines *1.10 through *1.50. This technique 
is used when the number of desired repetitions is not known. The looping process can be terminated at any time by 
typing CTRL P. If, however, the number of desired repetitions is known (e.g., 10), the following method can be 
used. 


*SET PI =3.14159 
*1 . 1 ASK . . . 

* 

* 

*1 .6 TYPE ! ! ! ! ! 

*F0R I = DO 1 
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The ability to choose between these methods provides great flexibility in actually running FOCAL programs. 
*1*01 SET PI=3=14159 

*1.10 ASK " A RADIUS OF 'SR.. "INCHES" 

*1.20 TYPE %8.04., ! ^"GENERATES A CIRCLE OF; ".. ! 

*1.21 TYPE " DIAMETER”., 2*R^ " INCHES":,! 

*1.30 TYPE " AREA’S PI*Rt2>" SQUARE INCHES".,! 

*1.31 TYPE " CIRCUMFERENCE"., 2*PI*R.," INCHES".,! 

*1.40 TYPE !^ "AND A SPHERE OF:",! 

*1.47 TYPE " VOLUME", ( 4/3) *P I *R r 3, " CUBIC INCHES",! 

*1 .50 TYPE !!!!!; GOTO 1 .1 

*G0 

A RADIUS OF ;26.39INCHES 
GENERATES A CIRCLE OF; 

DIAMETER 52.7800 INCHES 
AREA 2187.9041 SQUARE INCHES 
CIRCUMFERENCE 165.8131 INCHES 

AND A SPHERE OF: 

VOLUME 76985.053 CUBIC INCHES 


A RADIUS OF :0.73INCHES 
GENERATES A CIRCLE OF: 

DIAMETER 1.4600 INCHES 
AREA 1.6742 SQUARE INCHES 
CIRCUMFERENCE 4.5867 INCHES 

AND A SPHERE OF; 

VOLUME 1.6295 CUBIC INCHES 


4.3 ONE-LINE FUNCTION PLOTTING 

This example demonstrates the use of FOCAL to present, in graphic form, some given function over a range of 
values. In this example, the function used is 


y = 30 + 15 [ sin (x)]e'®-ix 


with X ranging from 0 to 15 in increments of .5. This damped sine wave has many physical applications, especially 
in electronics and mechanics (for example, in designing automobile shock absorbers). 


In the actual coding of the example, the variables I and J were used in place of x and y, respectively; any two 
variables could have been used. The single line 1.10 contains a set of nested loops for I and J. The J loop types 
spaces horizontally for the y coordinate of the function; the I loop prints the * symbol and the carriage return and 
line feeds for the x coordinate. The function itself is used as the upper limit of the J loop, again showing the power 
of FOCAL commands. 


The technique illustrated by this example can be used to plot any desired function. Although the * symbol was 
used here, any legal FOCAL character is acceptable. 
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*1 . 1 F l=0j .5^15J T ! 

*D0 1 . 1 
* 


F J=0^ 30+ 1 5*FSIN( I )*FEXPC- . 1*1 ) ; T ' 


f t 


* 


* 


* 

* 


* 


* 


* 


* 

* 


* 


* 


* 

* 

* 


* 


* 


* 


* 

* 


* 

* 


* 


* 


* 


* 


* 


* 


* 


* 

* 


4.4 DEMONSTRATION DICE GAME 

Occasionally, the computer user will apply the computer to tasks solely for his own enjoyment. Because such 
pastimes are usually keyboard oriented, FOCAL lends itself nicely to these ends. The following example uses the 
random number generator, FRAN ( ), to produce dice combinations, as well as IF logic to check bets and winning 

combinations. 

Note again the use of initials to abbreviate commands throughout the example (remember that each such 
abbreviation must be followed by a space). 

The random number generator must be modified for use with statistical or simulation programs to achieve true 
randomness. However, it is sufficiently random for most applications in its present form. 

NOTE 

DEC does not assume any responsibility for the use of this 
routine or any similar routines. 

C FOCAL V3A 

01.10 S B=0;T !!”DICE GAME” !, "H OUSE LIMIT IS $1000” 

01.13 T ”. MIN, BET IS $1.00”!! 

01.20 ASK ”YOUR BET I S”A; I (1000-A) 3.10 

01.22 I CA-1)3.40, 1 .26, 1 .26 

01.26 IF CA-FITR(A) )3. 50, 1 .30,3.50 

01.30 ASK M;D0 25SET D=C5D0 2sT ” ”5SET D=D+C 

01.32 I (0-7)1.42,3.20,1.42 

01.40 I (0-2)1.50,3.30,1.50 

01.42 I (0-11)1.40,3.20,1.40 

01.50 I (0-3) 1.60,3.30,1.60 

01.60 ASK M;D0 2,*S E = C;00 2jT ” ”j S E = E+C 

01.72 I (E-7) 1.74,3.30,1.74 


4-4 



01-74 I (E-D) 1.60^3.20,1.60 

02.10 SET C=FITR( 10*FABSCFRAN() ) )iIF 


( 0 - 6 ) 2 . 20 , 2 . 20 , 2.10 


03.10 

03.20 

03.30 

03.40 

03.50 


o, rsc. 1 uni\ 


"HOUSE LIMITS ARE $1000"!!) G 1-20 

B=B+A;T %6.0, !"YOU WIN. YOUR WINNINGS ARE ", 

B=B-A;T %6.0, !"SORRY YOU LOSE- YOUR WINNINGS 

"MIN. BET IS $1"! ! J G 1.2 

"NO PENNIES, PLEASE"! !) GOTO 1-2 


B, ! ! , 
ARE 


2 

I t 


G 1 .2 


DICE GAME . 

HOUSE LIMIT IS $1000. MIN^ BET IS $1.00 


YOUR BET IS:. 50 MINIMUM BET IS $1 


YOUR BE'T IS: 1 5: 

6 3 : 

1 4 : 

4 5 

YOU WIN. YOUR WINNINGS ARE 15 

YOUR BET IS: 5: 

2 2 : 

6 1 

SORRY^ YOU LOSE. YOUR WINNINGS ARE 10 

YOUR BET IS:3: 

6 5 

YOU WIN. YOUR WINNINGS ARE 13 

YOUR BET IS: I*LL QUIT WHILE I’M AHEAD. THANKS! 

4.5 SIMULTANEOUS EQUATIONS AND MATRICES 

Many disciplines use subscripted variables for vectors in one, two, or more dimensions to store and manipulate 
data. A common use is the 2 -dimensional array or matrix for handling sets of simultaneous equations. For example, 

Given: IXi + 2X3 + 3X3 = 4 

4Xi + 3X2 + 2X3 = 1 

1X1 + 4X2 + 3X3 = 2 

Find: The values of Xi , X2 , and X3 to satisfy all three equations simultaneously. 

The solution can be reduced to simple mathematics between the various elements of the rows and columns until 
correct values of X are found. 

Each individual quantity in an array is referred to in terms of its position within the array. This identifier is a 
subscript. The notation A(I) refers to element I of array A. 

FOCAL uses only a single subscript. Thus, the handling of two or more dimensions requires the generation of a 
linear subscript which represents the correct position if it were stored in normal order, i.e., leftmost subscript 
moving fastest. 

In one dimension: 

ARRAY ( 0 ) 

( 1 ) 

( 2 ) 

( 3 ) 

(4) 

In two dimensions: 

ARRAY (row, column) or A(I, J) 

This must be reduced to the form A(G). Because subscripts are linear, G is a function of I and J; that is, A(I,J) = 
A(G). Consider the diagram 


For example: 

Element D could be represented as ARRAY( 3 ); any element in 
this array can be represented by a subscript in the range 0 
through 4 . The first element in an array always has a subscript 
of 0. 
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1 = 0 
1 
2 

3 

4 

This array has five rows and three columns; thus, two values can be defined: 

IMAX=5 

JMAX=3 

To generate the number (G) in any box, using the corresponding values of I and J, the formula 
G = I + IMAX*J or A(G) = A(I + IMAX*J) 

can be used. Each element in a 2~dimensional array represents an area. The example for solving simultaneous 
equations, above, uses this algorithm for subscripts, merely by replacing I, IMAX, and J with J, L, and K, 
respectively, to form the equation 

A(J+L*K) 

In three dimensions 

ARRAY (row, column, plane) = A(I, J, K) = A(G) 

Three dimensions can be illustrated as rectangular solid. 


J = 


0 1 2 


0 

5 

10 

1 

6 

11 

2 

7 

12 

3 

8 

13 

4 

9 

14 



This rectangular solid has dimensions of five rows, three columns, and four planes; thus, IMAX = 5, JMAX = 3, and 
KMAX = 4. Each plane is numbered exactly as in the 2>dimensional example, except 1 5 times K (with K = the num- 
ber of planes back from the first) is added to each subscript in the first plane. 

Example: Upper lefthand square, back one plane from the first =15 

I = 0, J = 0, K = 1 ; I + (IMAX*J) + (IMAX* JMAX*K) = 15 = G 

or 

A(0, 0, 1) = A(15) 
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In four dimensions; 


ARRAY (row, column, plane, cube) = A(I, J, K, L) = A(G) 
Assign the values for IMAX, JMAX, KMAX; a method similar to the one used above yields 
G = I+(IMAX* J)+(IMAX* JMAX* K)+(IMAX* JMAX* KMAX* L) 
This process can theoretically be extended indefinitely to n-dimensions. 

C FOCAL V3A 

01.02 TYPE ! "ROUTINE TO SOLVE MATRIX EQ . AX=B FOR X" 

01.04 ASK "ENTER DIMENSION OF A^ THEN 

01.05 TYPE !"ENTER COEFF ’S A( J, K ) . . . A ( N) AND B(J)" 

01.10 ASK L> ! jSET N=L-li SET I=-l 

01.11 FOR K=0,N; set R(K)=K+1 

01.12 FOR J=0,NJ TYPE Is FOR K:^0,L; ASK ACJ + L + K) 
01.14 SET M=lE-6 

01.16 FOR J=0,Nt FOR K=0,NJ DO 4 

01.17 SET RIP ]=0 . 

01.18 FOR K=0^L; SET ACP + L*K I =A[P + L=t=K i /M 

01.20 FOR J=0,Nr DO 5 
0! .22 SET 1=1+1 

01.23 IF (I-N) 1.14^ 1.26 ^ 1.14 

01.26 FOR J=0,NJ FOR K=0,NJ DO 7 

01.28 FOR K=0,N;TYPE !%2^"X("K,") ",%8.05>X(K) 

01.29 TYPE ! ! ; GOTO 1 .02 

04.05 IF (R<J>) 0, 4.3:. 4.1 

04.10 IF (FABSCAC J+L*K) ) - FABSCMI) 4.3; 

04.20 SET M=A(J+L*K) 

04.22 SET P=Jj SET Q=K 

04.30 RETURN 

05.10 IF (J-P) 5.2, 5. 4, 5.2 

05.20 SET D=A(J+L*Q) 

05.30 FOR K=0,Li SET A<J+L*K>=A<J+L*K>-A<P+L*K>*D 
05.40 RETURN 

07.10 IF ( lE-6-FABS[A( J+L*K) ] ) 7.2; RETURN 

07.20 SET X(K) =A( J+L*L) 

ROUTINE TO SOLVE MATRIX EQ. AX=B FOR X 

ENTER DIMENSION OF A, THEN 

ENTER COEFF’S A ( J, K) . . . AC J, N) AND BCJ) 

;3 

: 1 ;3;2;4 
: 5 : 3 : 6 ; 2 
:3: 1 :2: 1 


X( 

0) 

0 .25000 

xc 

1 ) 

1 .75000 

X( 

2) 

- 0.75000 


ROUTINE TO SOLVE MATRIX EQ . AX=B FOR X 

ENTER DIMENSION OF A, THEN 

ENTER COEFF'S AC J,K) . . .AC J,N) AND BCJ) 

:3 


:4:5:2:3 


:l :3:8:5 


: : 2 : 6 : 1 


X( 0) 

5.00000 

XC 1) 

A .00000 

X( 2) 

1 . 50000 



4.6 INTEREST PAYMENT PROGRAM 


This is an example of a business-oriented FOCAL program. It is designed to completely describe the payments to 
be made on a loan, with interest, on an installment plan basis. 

Under program control, the computer requests as input the amount of a loan, the percentage of interest on that 
loan, and the length of time over which the loan is to be paid. The computer then calculates and types the amount 
of monthly payments to be paid, the total amount of interest to be paid, and a table showing interest paid, amount 
applied to principal, and balance due after each payment. 


C FOCAL V3A 

01 .02 TYPE ! ! , %7.02 

01.20 TYPE " THIS PROGRAM WILL COMPUTE MONTHLY PAYMENTS AND THE" 

01.21 TYPE " CONTRIBUTION OF EACH" 

01.22 TYPE ! "PAYMENT TO INTEREST AND PRINCIPAL. PLEASE ANSWER THE" 

01.23 TYPE " FOLLOWINGi'M ! 

01.30 ASK "WHAT IS THE AMOUNT OF THE PRINCIPAL?" PRINCIPAL 

01.31 ASK "WHAT IS THE RATE OF INTEREST?" INTEREST 

01.32 ASK "WHAT IS THE TERM OF THE LOAN IN MONTHS?" TERM 

01.33 TYPE ! ! 

01.40 SET D=1+(<INTEREST/12>*.01) 

01.41 FOR A=1,1,TERMJ DO 15.99 

01.42 SET C=PRI NCIPAL/B 

05.01 SET BALANCE^^PRI NCIPAL 

05.02 TYPE "PRINCIPAL" 

05.03 TYPE PRINCIPALJ TYPE " 

05.04 TYPE "PAYMENTS"; TYPE CJ TYPE !!! 

05.05 TYPE " PAYMENT"; TYPE " 

05.06 TYPE "INTEREST"; TYPE " 

05.07 TYPE "PRINCIPAL"; TYPE " 

05.08 TYPE "BALANCE"; TYPE " "; TYPE ! 

06.01 FOR M=1,1,TERM; DO 7.00 

06.02 TYPE ! ! ! ; TYPE " "; 

06.03 TYPE "TOTAL I NTEREST"^ 7.6 .02 

06.04 TYPE TOTINTEREST 

06.05 TYPE ! ! ! 

06.06 GOTO 1 .02 

07.01 SET CINTEREST=BALANCE*(INTEREST/12)*.01 

07.02 SET TOTINTEREST=TOTINTEREST + CINTEREST 

07.03 SET CPRINCIPAL=C-CINTEREST 

07.04 SET BALANCE=BALANCE-CPRINCIPAL 

07.05 TYPE %7.02iM,%14.02 

07.07 TYPE Cl NTEREST,CPRINCIPAL^ BALANCE, ! 

15.99 SET B=B+( 1 /<D> TA) 


THIS PROGRAM WILL COMPUTE MONTHLY PAYMENTS AND THE CONTRIBUTION OF EACH 
PAYMENT TO INTEREST AND PRINCIPAL. PLEASE ANSWER THE FOLLOWING: 

WHAT IS THE AMOUNT OF THE PRI NCI PAL ?: 2000 

WHAT IS THE RATE OF I NTEREST? : 6 . 4 

WHAT IS THE TERM OF THE LOAN IN MONTHS?: 12 


PRINCIPAL 2000.00 


PAYMENTS 


172.50 



PAYMENT 

INTEREST 

PRINCIPAL 

BALANCE 

1 .00 

10.67 

161.84 

1838.1 7 

2.00 

9.80 

1 62 . 70 

1675.47 

■J . W 56' 

Q . O /i 

B ✓ “1 

1^0 IT '7 

1 O O . J i 

i 5 1 i • 90 

4.00 

8.06 

164.44 

1 347.47 

5.00 

7.19 

1 65.32 

1182.15 

6.00 

6.31 

1 66.20 

1015.96 

7.00 

5.42 

1 67.08 

848.87 

8-00 

4.53 

167.97 

680.90 

9.00 

3.63 

168.87 

512.03 

10.00 

2.73 

1 69 . 77 

342.26 

1 1 .00 

1 .83 

1 70 . 68 

1 71 .59 

12.00 

0.92 

1 71 .59 

0 .00 


TOTAL INTEREST 

70 .0 1 



4.7 INTERCEPT AND PLOT OF TWO FUNCTIONS 

Values are first computed and printed for two monotonic functions. Then these curves are plotted within specified 
limits. Non-monotonic functions must be plotted using the method of residuals. 

C FOCAL V3A 

01.01 T %8.04 

01.02 ASK ”LOWER LIM I T”.. LL^ ! '’UPPER LIM I T’^ UL^ ! ’’INCREMENT”.^ IN., ! 

01.10 SET Yl = 0i SET Y2=05 

01.20 FOR X=LL^IN,UL; SET Yl=-X-3; SET Y2= 3+ 4*X-X t 2; DO 2.0 

02.10 IF CY2-Y1) 2.3^2.2>2.3 

02.20 TYPE "THE POINT OF INTERSECTION IS ’S ! 

02.30 TYPE "Xl = ":rX:," "^"Y1 = "^Y1:, !:,”X2='SX:," " Y 2= " Y2> ! ! 

03.10 TYPE "DO YOU WANT A PLOT?" 

03.20 ASK "(TYPE Y FOR YES. TYPE N FOR NO) ’SAN:,!! 

03.30 IF CAN-0Y)9. l.,4. 1>9. 1 

04.10 FOR X=LL.,IN>UL5 do 5.0 

05.01 IF CX) 5.1^5.02^5.1 

05.02 TYPE " Y Y".,# 

05.10 FOR Y=0:,30i TYPE " " 

05.20 TYPE 

05. 30 FOR Y=0:, 30+C-X-3)5 TYPE " ” 

05.40 TYPE 

05. 50 FOR Y=0>30+C3+4*X-Xt2) J TYPE " ” 

05.60 TYPE ! 

09. 10 QUI T 

*L IN TWOFNC 
LOWER LIMIT:-10 

UPPER LIMIT; 10 

INCREMENT: 1 


Xl=- 
X2 = - 

10.0000 

10 .0000 

Y1 = 
Y2 = - 

7.0000 

137.0000 

Xl=- 
X2 = - 

9.0000 

9.0000 

Yl = 
Y2 = - 

6 .0000 
1 14.0000 

i 1 

II II 

cvi 

X X 

8 .0000 
8.0000 

Yl = 
Y2=- 

5.0000 

93.0000 

XI =- 
X2 = - 

7.0000 

7.0000 

Yl = 
Y2 = “ 

4.0000 

74.0000 

Y1 
/ \ 1 — 

X2 = - 

^ mrx mm 

6.0000 

Yl = 
Y2=- 

3 .0000 
57.0000 
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Xl=- 
X2 = - 

5.0000 

5.0000 

Xl=- 
X2 = - 

4 .0000 
4.0000 

Xl=- 

X2=- 

3.0000 
3 .0000 

Xl=- 
X2 = - 

2.0000 
2 .0000 

THE 
Xl=- 
X2 = - 

POINT OF 

1 .0000 
1 .0000 

Xl = 
X2 = 

0 .0000 

0 .0000 

Xl = 
X2 = 

1 .0000 

1 .0000 

Xl = 

X2 = 

2 .0000 
2.0000 

Xl = 
X2 = 

3.0000 

3.0000 

Xl = 

X2 = 

4 .0000 

4 .0000 

Xl = 

X2 = 

5.0000 

5 .0000 

Xl = 

X2 = 

6 • 0000 

6 . 0000 

Xl = 

X2 = 

7.0000 

7.0000 

Xl = 

X2 = 

8.0000 

8.0000 

Xl = 

X2 = 

9.0000 

9 .0000 


Xl= 10.0000 
X2= 10.0000 

Xl= 11.0000 
X2= 11.0000 


1 

II M 

CV] 

2 .0000 
42 . 0000 

Yl = 
Y2 = - 

1 .0000 
29 .0000 

Yl = 
Y2 = - 

0 . 0000 
1 8 .0000 

Yl=- 
Y2 = - 

1 .0000 
9 .0000 

NTERSECTION IS 
Yl=- 2.0000 

Y2=- 2.0000 

Yl=- 
Y2 = 

3.0000 

3 .0000 

Yl=- 
Y2 = 

4 .0000 

6 .0000 

Yl=- 
Y2 = 

5.0000 

7 .0000 

Yl=- 
Y2 = 

6.0000 

6 .0000 

Yl=- 
Y2 = 

7.0000 

3 . 0000 

Yl=- 
Y2 = - 

8 .0000 
2.0000 

Yl=- 

Y2=- 

9 .0000 
9.0000 

Yl=- 
Y2 = - 

10.0000 

1 8 .0000 

Yl=:- 
Y2 = - 

1 1 . 0000 
29 .0000 

fO 

II II 

1 1 

12.0000 
42 . 0000 

Yl=- 
Y2 = - 

13.0000 

57.0000 

Yl=- 

Y2=“ 

1 3.0000 

57.0000 



DO YOU WANT A PLOT?(TYPE Y FOR YES. TYPE N FOR NO) ;Y 



4.8 SCHROEDINGER EQUATION SOLVER 

This program is designed to aid the user in searching for possible energy-states of an electron in a potential well. 
This is one of the most complex equations yet written in FOCAL. It calculates and plots the energy levels of an 
electron within specified boundary conditions. 

C FOCAL V3A 

01.01 T .'.."SCHROEDINGER EQUATION SOLVER ! 

01.02 T !.” -DELSQUARED PSI + AX * PSI = E * PSI",!! 

01.03 A "TILTED SQUARE WELL PROBLEM WITH WIDTH’GX0,! 

01.08 A "WELL TILT SLOPE A".. A1 . ! . "TRI AL ENERGY E".B1.! 

01.09 A "NUMBER OF STEPS", NT,! 

01.11 S VF=0,* S SL=1 

01.70 S P(0)=0; S DX=X0/NTi S PC1)=SL*DXJ S R0=0 
01.75 S VF=0 

01.80 S P0=0 

01 .90 F N=0, l,NT-2; D 6 
01.93 T !,"PSI ZEROS"%2.0, P0 
01.95 GOTO 7.02 

05.10 T !,%3.0, PX," PSI",%,P(PX),"." 

05.20 S PZ = FITR(PM=t=SC) t S PE = FI TR< ( P C PX I +PM ) *SC > 

05.30 F X=1 , 1 ,PZ- 1 1 T " " 

05.40 T ".",#1 F X=l,l,PE+24i T " " 

05.50 T R 

06.10 S P( N + 2) =<(-Bl +A1 =t=DX=t=[N+l ] )*DXT2+2>*P( N+ 1 ) -P( N) 

06.20 I (NT-N-2) 12.90,6.9,6.3 

06.30 S RB=P(N + 2)=('P(N+1 ); I CRB) 6. 4, 6. 4, 6. 9 

06.40 S P0=P0+1 ,- R 

06.90 CONTINUE 

07.02 S CF=(P<NT>/P<1 >) t2j T " CONV IND"%, CF 
07.05 A " NEW E?"NY 

07.07 I (NY-9) 7.9,7.08,7.9 

07.08 I (VF) 7.09,7.8,7.09 

07.09 I (CF-100) 7. 1,7. 1,7.8 

07.10 S R2=P(NT)=kVFl I (R2) 7. 73, 7.80,7.85 
07.73 S DB=-0.5*DBt GOTO 7.85 

07.80 S DB=0.1 
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07.85 S 1+DB); T Bl; S VFCNT); G 1.80 

07.90 DO 14; GOTO 12.01 

12.01 T "EIGEN E”B1; S HP = B1 /C A1 *X0 ) 

12.20 T " EN/MAX POT"HP^! 

12.90 QUIT 

14.10 S PM=0; S PP=0i F PX=1>UNT; D 15 

14.20 S PS=PM+PP; S SC=45/PS 

14.30 T !!!; F PX = 1:,1:,70; T 

14.40 F PX=0^ l^NT; D 5 

14.50 T !;F PX=U1,70; T 

14.60 T ! ! ; R 

15.10 I CPEPX]) 1 5.2> 1 5.9> 1 5.5 

15.20 I (PM + P<PX>) 15.3^15.4^5.4 

15.30 S PM=FABS(P[PX]) 

15.40 RETURN 

15.50 I (P<PX>-PP) 15.9^15.9^15.6 

15.60 S PP=P(PX) 

15.90 RETURN 

* 

SCHROEDINGER EQUATION SOLVER - 

-DELSQUARED PSI + AX * PSI = E * PSI 
TILTED SQUARE WELL PROBLEM WITH WIDTH: 1 
WELL TILT SLOPE A: 40 
TRIAL ENERGY E:50 
NUMBER OF STEPS: 1 5 


PSI ZEROS 1 CONV IND 0 . 50 1 326 46 3E+0 1 NEW E? : Y 


0 PSI 0. 0000000 00E+00. 

1 PSI 0.666666667E-01 . 

2 PSI 0. 1 19308642E+00. 

3 PSI 0. 143265643E+00. 

4 PSI 0. 149546390E+00. 

5 PSI 0. 124684213E+00. 

6 PSI 0.795031267E-01 . 

7 PSI 0.223082351E-01 . 

8 PSI-0. 379932849E-01 . 

9 PSI-0. 934541789E-01 . * 

10 PSI-0* 1381 15924E+00* * 

11 PSI-0. 168454535E+00. * 

12 PSI-0e 183320286E+00* 

13 PSI-0. 183520414E+00* 

14 PSI-0. 17 1213966E+00.* 

15 PSI-0. 149268805E+00. * 


* 


* 


* 


* 


* 


* 


* 


* 

* 


EIGEN E 0 . 500000000E+02 EN/MAX POT 0 . 1 2 5000000E+0 1 



CHAPTER 5 
LIBRARY COMMANDS 


FOCAL library commands allow the user to save and then call programs by name. These commands cause files 
consistent with the Advanced Software file format to be produced and accepted. These files, which use lOPS ASCII 
data mode, can be manipulated by other Advanced Software programs such as PIP and EDITOR. In addition to the 
library commands, a COMMON command and an ERASE COMMON command are available. These commands 
allow the effective segmentation (chaining) of FOCAL programs, with the COMMON area defining those variables 
which are to be used by all segments. 

5. 1 LIBRARY OUTPUT COMMANDS 

Three operations are required to produce a file with the FOCAL library commands: 

a. File initialization 

b. File output 

c. File termination 

5.1.1 Library File Initialization 
The command 

=<^LIBRARY OUT 

initializes a file on the output device associated with .DAT slot 5. If the device is bulk storage (i.e., has named 
files), then the file name NAME is used. NAME can be up to six alphanumeric characters and is terminated by a 
carriage return. The extension FCL is supplied by the system. 

5.1.2 Library File Output Operations 
Commands of the form 

^LIBRARY WRITE NNN 

cause information to be entered into the library file. The character string NNN can take four forms which are 
explained below. 

5. 1 .2. 1 Direct Command Output 

If the character string NNN, in the example above, begins with quotation marks (“), the command indicates that 
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the character string following the quotation marks is to be inserted into the file. This character string may be any 
FOCAL command. 

For example, the command here is an *, a FOCAL symbol typed by the user to signal termination of input from 
the device associated with .DAT slot 3. 

'i^LIBHARY WRITE GO 

causes the command 
GO 

to be inserted into the library file as a direct command. This will start the program when the file is later called for 
execution by a library input command. 

5 . 1 . 2 . 2 Single Line Output 

If the character string NNN is a legal line number which is present in the program in core, this command causes a 
single line to be inserted into the file. For example, the command 

★LIBRARY WRITE 10.02 

causes line 10.02 to be inserted into the currently opened output file. 

5 . 1 . 2. 3 Group Output 

If the character string NNN is a legal group number, this command causes the entire group of lines to be inserted 
into the file. For example, the command 

★LIBRARY WRITE 2.00 

causes all group 2 lines to be inserted into the current output file. 

5. 1.2.4 Program Output 

If the character string NNN is ALL or A, then the entire indirect program is inserted into the current output file. 
5.1.3 Liteary File Termination 

After using the appropriate library output commands, it is necessary to issue the command 
★LIBRARY CLOSE 

to complete file output and enter the file name into the directory of the mass storage unit of the Advanced 
Monitor System. The LIBRARY CLOSE command allows an input or output file to be closed. An error message 
“?35” will be printed if a file has not been opened. If the LIBRARY CLOSE command is not issued, the user 
remains in library mode and all other commands are illegal. However, to leave library mode without actually 
finishing the output file, the command 

★LIBRARY KILL 

is used. After using this command, the user is in command mode, and the file which had been started by the library 
output commands is lost. 

5.2 LIBRARY INPUT COMMANDS 

To load a library file which has been output from FOCAL or which has been prepared off-line, the command 
★LIBRARY IN NAME 

is used where NAME follows the conventions used for library output. The library input from the device associated 
with .DAT slot 3 is terminated by an end of file or end of tape condition on the input file. It is also terminated by 
the presence of a direct command of asterisk (*), supplied during a LIBRARY WRITE command within the library 
file. If none of these three conditions occurs, FOCAL assumes that subsequent input (e.g., for ASK command) will 
come from the device associated with .DAT slot 3. This direct command can be a multiple command which can 
provide automatic program starting. For example, a direct command to terminate input and to start a program at 
line number 8.21 would be 

★; GOTO 8.21 
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This command can be inserted at the end of the library output by the command 


^LIBRARY WRITE ^**5 GOTO 8.21 
5.3 LIBRARY .DAT SLOT USAGE 

The FOCAL library commands assume input on .DAT slot 3 and output on .DAT slot 5 from the Advanced 
Monitor, and the FOCAL data commands assume input on .DAT slot 7 and output on .DAT slot 10 from the 
Advanced Monitor. The recommended assignment to the Linking Loader is the System Library located on unit 0 (8 
on the DECtape thumbwheel) where the FOCAL system is also located. The .DAT slot for the System library is -4 
and for the FOCAL system it is -1 . 

Assignments for DECtape or Disk in the Advance Monitor environment follow. 


.DAT Slot 

Contents 

Samples Assignment 

.DAT -1 

System Library 

DTEO (DKE0) -1 

.DAT -4 

FOCAL (XCU, XCT) 
FOCAL binary program 

DTEO (DKE0) -4 

.DAT 3 

FOCAL library input 

DTEl (DKEl) 3 

.DAT 5 

FOCAL library output 

DTEl (DKEl) 5 

.DAT 7 

FOCAL data input 

DTEl (DKEl) 7 

.DAT 10 

FOCAL data output 

DTEl (DKEl) 10 


FOCAL data commands are described in Chapter 7, and .DAT slot assignments are further summarized in 
Appendix E. 

5.4 COMMON VARIABLES AND ARRAYS 

The COMMON command allows the user to define permanent FOCAL variables and arrays which are saved with 
their current values when the user modifies the stored indirect program. Thus, the caution at the MODIFY 
command (refer to section 3.14.1) does not apply to COMMON variables. The COMMON command is legal only if 
no other variables have been defined in the symbol table. Thus, it is good programming practice to precede a 
COMMON definition by an ERASE command to clear the symbol table. If any non-COMMON variables have been 
defined when the COMMON command is executed, it will be treated as a COMMENT and ignored. 

5.4.1 COMMON Format 

Three types of variables can be defined in a COMMON command as the following example shows. 

^COMMON A:.BC5)> CC^ 1 >3) 

The first variable, A, defines a single non-subscripted variable. The second variable, B(5), defines a single array 
element to be COMMON. All other elements of the array B are non-COMMON. The third variable (C,l ,1,3) defines 
a series of array elements as COMMON by using a notation similar to the FOR statement. Thus, the command 

^COMM'DN CC>l>l:r5) 

is equivalent to the command 

^COmOH CC 1 )>CC2),C<3)>C<4)>C(5) 

but much shorter. Note that, because COMMON and COMMENT both have the initial letter C, the COMMON 
command must not be abbreviated (refer to Section 2.12). 

5.4.2 ERASE COMMON Command 

The ERASE COMMON command must be used to clear the COMMON area if a user wishes to define a completely 
new COMMON area. It will clear both the COMMON area and all variables in the symbol table, but not the program 
itself- If, however, the user sim_ply wants to add to the current COMMON area, it is only necessary to erase any 
non-COMMON variables by using ERASE. The ERASE ALL command has no effect on the COMMON area 
variables and does not change their values. 
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5.5 CHAINING OF FOCAL PROGRAMS 

For FOCAL programs that exceed the capacity of user’s core memory, it is possible to segment the program. By 
combining the library input and COMMON commands, one segment can call another by name. ALL COMMON 
variables are retained in core memory for access to them from all segments of the program. New COMMON 
variables can be added to the permanent table from any segment. The command LIBRARY IN NAME brings in the 
next segment to core memory and provides access to the COMMON table for the operations in this segment of the 
program. 

NOTE 

Ensure that a segment does not exceed its allotted memory 
location or the overflow will begin to erase the compiler in 
core. 

The following example shows three FOCAL segments and the operations required to provide the segments with 
linkage capability. The first segment, named CHI, defines a COMMON area and initializes the variables. If CHI is 
called again, it checks for the values in the second part of the COMMON area which were defined in CH2 and 
QUITS. The second-segment, CH2 defines more COMMON variables, checks the original COMMON values created 
in CHI, and initializes the additional COMMON variables. The third segment checks all the COMMON values and 
calls the first segment again. 


*WR ITE 
C FOCAL V3A 

01.05 TYPE ”CH1 READY'S! 

01.10 COMMON A.,B:,C:. CABC^ 1 ;r5) 

01 .20 IF CA) 20.1^1 .3:^20 . 1 
01 .30 SET A = 1 

01 .40 SET B=2; SET C=3 

01.50 FOR SET ABCCX)=X*10 

01.55 TYPE "CHI DONE - CALLING CH2"^! 

01 .60 LIBRARY IN CH2 

20.10 IF C0-10) 20.2:»20.3.,20.2 

20.20 TYPE "COMMON ERROR ON 2ND CALL OF CH1":»! 

20.30 TYPE "ALL DONE".,!j QUIT 




\ Listing 
( of CHI 


J 


^LIBRARY OUT CHI 
^LIBRARY WRITE "ERASE ALL 
^LIBRARY WRITE ALL 
^LIBRARY WRITE GO 

^LIBRARY CLOSE 
* 


I Library 
/ Output 
of CHI 


*WRITE ALL 
C FOCAL V3A 

01.10 TYPE "CH2 READY'S! 

0 1.20 COM MO N Q .» ( ABC j 5 S 1 0 ) 

01.30 FOR X=6>10; S ABC(X)=X*10 

01.40 FOR X=S10J DO 25.0 
01.50 IF CA+B + C-6) 1.6>1.7:»1.6 

01.60 TYPE "CH2 COMMON ERROR - SUM = ".,A+B+C^! 

01.70 TYPE "CH2 DONE - CALLING 
01.80 LIBRARY IN CHS 

25.10 IF CA8CCX)- 10HcX) 2 5 . 2.» 2 5 . 3.» 2 5 . 2 

25.20 TYPE "ERROR AT X = ”.,X.»" ABC ARRAY = ".»ABC(X).»! 

25.30 RETURN 




V Listing 
/ ofCH2 
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^LIBRARY OUT CH2 
^LIBRARY WRITE ”ERASE ALL 
^LIBRARY WRITE ALL 
^LIBRARY WRITE GO 

^LIBRARY CLOSE 
* 


Library 
Output 
of CH2 


*WRITE ALL 


C FOCAL V3A 

01.10 TYPE ‘’CH3 READY”:.! 

01 .20 SET 0 = 10 

01 .30 FOR 1 = 1^10; DO 25.0 

01.40 TYPE ”CH3 DONE - CALLING CHI AGAIN”^! 

01 .50 LIBRARY IN CHI 

25.10 IF (ABC (X) -10*) 2 5 .2 >2 5 . 3 :.2 5 .2 , 

25.20 TYPE "ERROR AT X = "^X>" ABC ARRAY =^ABC(X):.! 
25.30 RETURN 

*LIBRARY OUT CH3 
*LIBRARY WRITE "ERASE 1.00 
*LIBRARY WRITE 1 .00 
*LIBARY WRITE "*; GO 
*LIBARY CLOSE 
* 






Listing 
of CHS 


j Library 

) Output 
I of CHS 


FOCAL V3A 
*ERASE COMMON 
*LIBRARY IN CHI 


CHI 

CHI 

CH2 

CH2 

CH3 

CH3 

CHI 

ALL 


READY 
DONE 
READY 
DONE 
READY 
DONE 
READY 
DONE 
*TYPE $ 
A@@ (00 ) = 
B@© (00 ) = 
C@@800 )= 
ABC (0 1 ) = 
ABC (02) = 
ABC (03 ) = 
ABC(04)= 
ABC(05)= 
Q@@800 )= 
ABC(06)= 
ABC (07)= 
ABC(08)= 
ABC(09)= 
ABC (10)= 


CALLING CH2 


CALLING CH3 


CALLING CHI AGAIN 


1 .00 
2.00 
3 .00 
10.00 
20 .00 
30 .00 
40 .00 

50.00 

10.00 
60 .00 
70 .00 
80 .00 
90 .00 

100.00 






Library Input and 
Execution of Chained 
Programs CHI, CH2 
and CHS 


J 


I Dump of 
> COMMON 
Symbols 


* 


J 
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CHAPTER 6 

USER DEFINED FOCAL FUNCTIONS 


The ability to write FOCAL functions in MACRO assembly language t and subsequently interface these functions 
with the FOCAL interpreter is an important feature which allows real-time use of FOCAL. These functions are 
processed in the same way as the normal internal functions supplied with the interpreter (i.e., FSIN, FITR, etc.). 
Some external functions are provided in the FNEW file (Refer to Section 6.2). User-defined functions can be 
incorporated into the source file of FNEW, which, when reassembled by MACRO, can be loaded with FOCAL. The 
interface of external functions is accomplished by: 

a. Use of a function table which contains the three letter function name in .SIXBT (6-bit ASCII) and a jump 
to the function processor 

b. Use of .GLOBL definitions which allow the function processors to use character processing and expression 
evaluation routines which are in the interpreter. (Refer to listing under FOCAL operations printout in this 
chapter.) 

The following detailed examples show the operations necessary to write a FOCAL function in MACRO. 


6.1 EXAMPLE 


A scope routine has been generated to display characters at a given point on a scope. This routine is called from 
FOCAL as a function by XYC (X, Y, SHOW). Here, X and Y are expressions to be used as display coordinates 
for the start of SHOW. 

First, the function name and transfer instruction must be added to the function table: 


.SIXBT /XYC/ 

IMP SETXYC 


When control arrives at SETXYC, the X has already been evaluated: 

SETXYC JMS* .AX /make 18 bits 

DXL /set X coordinate 

t The MACRO -9 and -15 assembly languages are described in manuals DEC-9A-AMZA-D and DEC-15-AMZA-D, 
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Now, check for the second argument and give an error if no second argument is given. 


Program 


Comment 



IMS* 

SAD 

JMP 

.DEC 

XSPNOR 

(254 

.+3 

/skip spaces 
/is it a comma? 
/yes 


LAW 

.OCT 

1 

/?01 error 


JMP* 

FUNERR 

/function error 


Move past the separating comma. 

JMS* UTRA 

Evaluate the second argument. 


LAC EVAL /address of evaluation routine 

DAC .+2 

JMS* XPUSHJ 

XX 


The second argument must be made into an 18-bit quantity and the y coordinate set: 


JMS* .AX 

DYL 


Test for a comma; if present, bypass it to get to the character string. 


JMS* 

XSPNOR 

SAD 

(254 

JMP 

.+3 

.DEC 


LAW 

1 

.OCT 


JMP* 

FUNERR 

JMS* 

UTRA 


/skip spaces 
/is it comma 
/yes 

/?01 error 

/error return 
/skip comma 


Now, pick up the single ASCII characters and display them. (This example assumes the character display routine is 
called DYCHAR.): 


DCLOOP 

LAC* 

CHAR 

/get character 


JMS 

DYCHAR 

/display it 


JMS* 

UTRA 

/get next char 


SAD 

(251 

/is it end? 


JMP* 

EFUN3 

/yes-return 


JMP 

DCLOOP 

/no-go display next character 


6.2 FILEFNEW 


The following functions are supplied in the library FNEW tape (where N cannot be another function): 

Function Meaning 


FDXS (N) 
FDIS (M) 
FDXY (N, M) 
FADC (N) 
FDAC (N) 
FRLB (N, M) 


Set the X coordinate of the 34H display. 

Set the y coordinate of the 34H display and intensify the point. 

Set the X and y coordinates and intensify. 

Set the multiplexer of the A/D converter and perform one conversion. 

Set the D/A converter to the specified value. 

If N = -1, clear the relay buffer (M should not be specified) 

If N = 0 to 17, set the appropriate bit of relay buffer according to the value of M (0 
or 1). 
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The functions are supplied to: 

a. provide a basic set of external functions; 

b. provide the user with additional examples in the method of coding external functions. 

The listing that follows is that of the library supplied FNEW tape which is distributed in both source and binary 
form. 


•TITLE FNEW 

/ 

/FOCAL EXTERNAL FUNCTION PROGRAM 
/ 

/COPYRIGHT 1969 
/DIGITAL EQUIPMENT CORP • 
/MAYNARD;^ MASS. 

/ 

/DAVE LENEY 
/2-7-69 
/ 


•GLOBL 

• NEWF 

/FUNCTION TABLE 

• GLOBL 

XPUSHJ 

/PUSH JUMP 

• GLOBL 

XPUSHA 

/PUSH AC 

• GLOBL 

PD2 

/PUSH FP 

• GLOBL 

PD3 

/POP FP 

•GLOBL 

UTRA 

/GET CHAR 

•GLOBL 

XSPNOR 

/SKIP SPACE 8c ZEROS 

•GLOBL 

FUNERR 

/FUNCTION ERROR 

• GLOBL 

EFUN3 

/FUNCTION RETURN 

•GLOBL 

FINT 

/FLOATING ARITH 

• GLOBL 

CHAR 

/CHAR STORAGE 

• GLOBL 

EVAL 

/EXPRESSION EVALUATOR 

• GLOBL 

• AA 

/EXPONENT (2’S COMP) 

•GLOBL 

• AB 

/SIGN AND HIGH ORDER MANTISSA 

•GLOBL 

• AC 

/LOW ORDER MANTISSA 

•GLOBL 

• BA 

/NEGATE 

• GLOBL 

• AX 

/FIX 

• GLOBL 

• AW 

/FLOAT 

FPOW=000000 



FADD=100000 



FSU3 = 2.00000 



FM1JL = 300000 



FDIV=400000 



FGET=500000 



FPUT=600000 



ENOR=700000 



FXIT=000000 




/ 

•EJECT 

/ 

/FOCAL OPERATIONS (FOCAL SOURCE EQUIVALENT IN PARENS) 
/ 

/PUSH JUMP TO EXPRESSION EVALUATOR (PUSHJ EVAL) 

/ LAC EVAL 

/ DAC *+2 

/ JMS* XPUSHJ 

/ XX 

/ 

/PUSH THE HARDWARE ACCUMULATOR (PUSHA ) 

/ JMS* XPUSHA 

/ 

/POP THE HARDWARE ACCUMULATOR (POPA) 

/ LAC* 13 


6-3 



/PUSH FLOATING ACCUMULATOR CPUSKF.AA) 


/POP FLOATING ACCUMULATOR (POPF .AA) 


/PUSH FLOATING VARIABLE (PUSHF VAR) 


/WHERE VAR IS THE FIRST OF 
/THREEO) REGISTER BLOCK 


/POP FLOATING VARIABE (POPF VAR) 


/SAME AS FOR PUSHF VAR 


/FETCH CURRENT CHARACTER 


/FETCH NEXT CHARACTER (GETC) 


/CHARACTER IN BOTH CHAR AND AC 


/IGNORE LEADING SPACES AND ZEROS (SPNOR) 

/ JMS* XSPNOR /NEXT CHARACTER IN BOTH CHAR AND AC 

/ 

/INDICATE A FUNCTION ERROR (ERROR NN) 

/ .DEC 

/ LAW NN /NN=TWO DIGIT (DECIMAL) ERROR CODE 


FUNERR 


/ERROR WILL HAVE DOUBLE QUESTION MARK 


/RETURN FROM FUNCTION (RETURN) 
/ JMP* EFUN3 


/VALUE OF FUNCTION IN FLOATING AC 


/ENTER FLOATING POINT INTERPRETER (JMS FINT) 


/FROM HERE ON ALL INSTRUCTIONS 
/ARE ASSUMED TO BE FLOATING POINT 
/UNTIL FXIT IS REACHED - FNN 
/REFERS TO FLOATING POINT OPERATIONS 
/LISTED NEXT. 


/FLOATING POINT OPERATIONS (USE 


* FOR INDIRECT) 

/RAISE F.P. AC TO VAR/CONSTANT 
/ADD F.P. VARIABLE/CONSTANT TO 
/SUBTRACT FROM F*p. AC 
/MULTIPLY THE F.P. AC 
/DIVIDE INTO THE F.P. AC 
/LOAD INTO THE F.P. AC 
/STORE THE F.P. AC 
/NORMALIZE THE F.P. AC 
/EXIT FROM FLOATING POINT MODE 


/NEGATE THE FLOATING ACCUMULATOR 


/FIX THE FLOATING ACCUMUl 
/ JMS* -AX 


.ATOR INTO 


HARDWARE ACCUMULATOR 
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/ 

/FLOAT THE HARDWARE ACCUMULATOR INTO THE FLOATING ACCUMULATOR 
/ JMS* .AW 


/ 

/ 


/EXTERNAL FUNCTION TABLE FORMAT 

WORD 0: TWO*S COMPLEMENT COUNT OF NUMBER OF ENTRIES 
WORDS 1 TO 2N: N TWO WORD ENTRIES 

EACH ENTRY: WORD0 : .SIXBT THREE LETTER FUNCTION NAME 

WORDl : JMP TO FUNCTION ADDRESS 


/ 

/TABLE 

/ 

.NEWF 


•EJECT 

OF NAMES 

•NEWFE- - 

•SIXBT 

JMP 

•SIXBT 

JMP 

• SIXBT 
JMP 

•SIXBT 

JMP 

•SIXBT 

JMP 

•SIXBT 

JMP 


OF EXTERNAL FUNCTIONS 

/TWO*S COMP COUNT OF NAMES 
/SET X COORDINATE 
/SET Y COORDINATE AND INTENSIFY 
/SET X AND Y AND INTENSIFY 
/SET MULTIPLEXER AND CONVERT 
/LOAD D/A CONVERTER 
/SET RELAY BUFFER 


.-1/2X777777+1 

/DXS/ 

SETX 

/DIS/ 

SETYI 

/DXY/ 

SETXYI 

/ADC/ 

SETADC 

/DAC/ 

SETDAC 

/RLB/ 

SETRLB 


.NEWFE= . 

/ 

/lOT DEFINITIONS 

/ 


DYL = 700606 


/LOAD Y COORDINATE 

DXS=700546 


/LOAD X COORDINATE AND INTE^ 

ADSF=701 301 


/SKIP ON A/D FLAG 

ADSC=701 304 


/SELECT AND CONVERT 

ADRB=701 312 


/READ A/D BUFFER 

ADSM=701 103 


/SET MULTIPLEXER 

DALI =705501 


/LOAD D/A CHANNEL ONE 

ORC=702101 


/CLEAR RELAY BUFFER 

ORS=702104 


/SET RELAY BUFFER 

•EJECT 

SETX JMS* 

• AX 

/SET X COORDINATE 

DAC 

XCOORD 

/SAVE 

JMP* 

EFUN3 

/RETURN 

SETYI JMS* 

• AX 

/SET Y COORDINATE 

DYL 


/LOAD REG WITH Y 

LAC 

XCOORD 


DXS 


/LOAD WITH X AND INTENSIFY 

JMP* 

EFUN3 

/RETURN 

SETXYI JMS* 

• AX 

/SET X COORDINATE 

DAC 

XCOORD 

/SAVE 

JMS 

GETARG 


JMP 

SETYI 

/NOW SAME AS FDIS 

SETADC JMS* 

• AX 

/GET multiplexer CHANNEL 

ADSM 


/NOTE: WILL USE LOW ORDER 

lOF 


/SIX BITS AS CHANNEL NUMBER 
/TURN OFF INTERRUPT SYSTEM 

ISA+10 

ADSU 


/StLiiCT AND CONVERT 

ADSF 


/WAIT FOR FLAG 
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SETDAC 


SETRLB 


/ 

GETARG 


/ 

XCOORD 

RELAYS 

TEMP 

/ 


JMP 

. -1 


ADRB 


/READ A/D BUFFER 

JMS* 

• AW 

/FLOAT RESULT 

LAC 

ISA 

ION 

( 400000 

/TURN ON INTEVVUPT SYSTEM 

JMP* 

EFUN3 

/RETURN 

JMS* 

DALI 

.AX 

/GET VALUE AS INTEGER 

JMP* 

EFUiM3 


JMS* 

.AX 

/GET VALUE 

SMA 


/IS IT MINUS 

JMP 

. + A 

/NO - GO FIND BIT POSITION 

DZM 

RELAYB 


ORC 


/YES - CLEAR WHOLE RELAY BUFFER 

JMP* 

EFUN3 

/RETURN 

CMA 


/FORM ONE ’S COMP 

DAC 
• DEC 

TEMP 

/SAVE AS COUNT 

TAD 
• OCT 

( 1 8 

/MUST BE RELAY 0 TO 1 7 

SMA 


/IS IT LEGAL POSITION 

JMP 

.DEC 

. +3 

/YES 

LAW 
• OCT 

2 

/NO 

JMP * 

FUNERR 

/??02 ERROR 

CLA ! CLL! 
RAR 

! CML 

/INITIALIZE AC 

ISZ 

TEMP 

/PUT BIT IN RIGHT 

JMP 

.-2 

/POSITION 

DAC 

TEMP 

/SAVE BIT POSITION 

JMS 

GETARG 


LAC 

CMA 

TEMP 

/CLEAR OLD RELAY VALUE 

AND 

RELAYB 


DAC 

RELAYB 

/SAVE NEW BUFFER 

JMS* 

.AX 


SZA! CLA 


/CLEAR OR SET RELAY 

LAC 

TEMP 

/IF NON ZERO SET 

XOR 

RELAYB 


DAC 

RELAYB 


ORS 


/LOAD BUFFER 

JMP* 

EFUN3 

/RETURN 


0 


JMS* 

XSPNOR 

SAD 

(254 

JMP 

. +3 

• DEC 


LAW 

1 

• OCT 


JMP* 

FUNERR 

JMS* 

UTRA 

LAC 

EVAL 

DAC 

.+2 

JMS* 

XPUSHJ 

XX 


JMP* 

GETARG 


0 

0 

0 


• END 


/GET ARGUMENT 
/SKIP SPACES 
/IS IT A COMMA? 

/YES 

/NO ~ ? ?0 i ERROR 

/EXTERNAL FUNCTION ERROR 
/SKIP COMMA 


/CALL EXPRESSION EVALUATOR 
/RETURN 

/X COORDINATE STORAGE 
/RELAY BUFFER STORAGE 
/TEMPORARY STORAGE 
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CHAPTER 7 
DATA COMMANDS 


FOCAL data commands allow the user to store and then retrieve substantial amounts of data through the use of 
auxiliary Input/Output devices other than the Teletype. The steps for processing the data need not be incorporated 
in the FOCAL program itself. The commands cause files consistent with the Advanced Software format to be 
produced and accepted, and as with the library commands, the files can be manipulated by other Advanced 
Software programs such as PIP and EDITOR, as may be noted from the examples at the end of this chapter. 

Data commands are used with other FOCAL commands and follow the same conventions with only minor 
exceptions. Data commands are for single-user FOCAL, and the DATA command, because of the conflict with the 
DO command, cannot be abbreviated. Also, under some conditions, library commands are illegal as with DATA 
OUT or DATA CLOSE (see 7.1.1 and 7.1.2). 

7.1 DATA COMMANDS 

Three operations are required to produce a file with the FOCAL data commands: 

a. file initialization 

b. file output 

c. file termination 

7.1.1 DATA File Initialization and Output 

The command 

*DATA OUT NAME 

initializes and enters a filename on the device associated with .DAT slot 10. The name can be up to six 
alphanumeric characters and is terminated by a carriage return. The extension FCL is supplied by the system. 

Every TYPE or WRITE command issued after DATA OUT NAME will output data to the device assigned to .DAT 
slot 10. For example with the following .DAT slots assigned: 

$A DTE0-1, -4/DETl 3, 5, 7, 10 

data is output to .DAT 10 on DECtape unit 1, and will continue to be until a DATA file termination command is 
given. 

If a LIBRARY command is issued while in the DATA OUT mode, error message ‘•?3r’ will be output to the 
teletype. What has already been output to the DATA file can then only be saved if a DATA CLOSE command is 
issued. 

7.1.2 DATA File Termination 

After the appropriate DATA output commands are used, it is necessary to issue the command 
*DATA CLOSE 

to complete file output and enter the filename and data into the device associated with .DAT slot 10, 
DATA CLOSE commands aiiow input or output file to be closed. If a file has not been opened, FOCAL will output 
the “?35” error message on the teletype. The DATA CLOSE command also returns the user to the teletype mode. 
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If the command is not issued, the user remains in the data mode. However, to leave the data mode without 
finishing the output file the user may type 

*DATA KILL 

which aborts the output file and returns the user to the teletype mode. The file started by the DATA output 
command is lost when DATA KILL is issued. 

7.1.3 DATA Input 
The command 

*DATA IN NAME 

function is related to its use in indirect programs. When DATA IN NAME is used in an indirect program (e.g. 1.10 
DATA IN filename), it initializes the device associated with .DAT slot 7 for data input from an ASK command. 
Recall that the ASK command is normally used in indirect commands and that its use is to input data at specific 
points during the execution of an indirect program. Thus, when a line number and a DATA IN command such as 

*1.10 DATA IN filename 

is inserted in a program, .DAT slot 7 is initialized for data input when an ASK command such as 
*2.10 ASK X,Y,Z 

is encountered during program execution. 

7.2 DATA .DAT SLOT USAGE 

Data commands, as previously stated, assume input on .DAT slot 7 and output on .DAT slot 10 from the Advanced 
Monitor. The recommended assignment to the Linking Loader is the system library located on unit 0 (8 on the 
DECtape thumbwheel). Recommended FOCAL program and user input/output assignments for DECtape and Disk 
are: 


.DAT Slot 

Contents 

Sample Assignment 

.DAT- 1 

System Ubrary 

DTEO (DKE0) 

.DAT - 4 

FOCAL (XCU,XCT) 

FOCAL binary program 

DTEO (DKE0) 

.DAT 3 

FOCAL library input 

DTEl (DKEl) 

.DAT 5 

FOCAL library output 

DTEl (DKEl) 

.DAT 7 

FOCAL DATA input 

DTEl (DKEl) 

.DAT 10 

7.3 DATA COMMAND USE 

FOCAL DATA output 

DTEl (DKEl) 


Some of the data commands so far described are used in the following examples. Also demonstrated are the 
commands for loading FOCAl with the Linking Loader after Monitor’s $ is typed and for use of PIP for a 
Directory listing and output of data on the teletype. 


KM15 V15 


$A DTEl -4, 3, 5, 7, 10 /Prior .DAT slot assignments 

$LOAD 


Loader V7A 
> ^ FOCAL 

tsts 

FOCAL15 V8A 
*1.10 DATA IN INDISK 
*1.20 ASK A,B,C,D,E 
*1.30T A+B+C+D+E,! 
*GO 
15.0000 


/Type indirect program. 

/File INDISK contains the input data. 
/See PIP listing of INDISK below. 
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*L O SHOW /Save indirect program. 

*LWA 

*LC 

*L I SHOW /Recall indirect program. 

*WA 

CFOCAL15 V8A 

01.10 DATA IN INDISK /List program on the teletype. 

01.20 ASK, A,B,C,D,E 
01.30 T A+B+C+D+E,! 

*GO 

15.0000 

*T A 

1 . 0000 * 

*T B,! 

2.0000 

*DATA OUT OUTDT /Output data onto DECtape using 

*T A /the TYPE command. 

*TB 
*TC 
*TD 
*T E,! 

*DATA CLOSE /Close the output file. 

*tc 

KM15 V15 
$PIP 

PIP V 1 0A /Examination of files created and input. 

>L TT^DTl 


DIRECTORY LISTING 
1042 FREEBLKS 
4 USER FILES 
10 SYSTEM BLKS 
INDISK FCL 1 1 

FOCAL BIN 2 23 

SHOW FCL 3 1 

OUTDT FCL 4 1 

PIPV10A 

>T TT ^ DTI INDISK FCL (A) 

1.0 

2.0 

3.0 

4.0 

5.0 

PIP V10A 

>T TT ^ DTI SHOW FCL (A) 
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CF0CAL15 V8A 
'01.10 DATA IN INDISK 
01.20 ASK A,B,C,D,E 
01.30 T A+B+C+D+E.! 

PIP V10A 

>T TT ■*- DTI OUTDT FCL (A) 

1.0000 2.0000 3.0000 4.0000 


PIP VI 0 A 

>tc 

KM15 V15 
$ 


5.0000 
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CHAPTER 8 
MULTI-USER FOCAL 
BACKGROUND/FOREGROUND 


Multi-user FOCAL operates under the control of the Background/Foreground Monitor system which is designed to 
control processing and Input /Output operations in real-time or time-shared environment. With only a few 
exceptions, the commands, operating procedures, and FOCAL programs so far described in this manual are 
applicable to Multi-user FOCAL operations. The significant exceptions concern loading the Background/ 
Foreground Monitor system, the .DAT slot assignments, use of a FCORE command in the Foreground to reserve 
core, and the FOCAL Trace and Data commands. Once Multi-user FOCAL is loaded, users may begin to call up and 
to run or create programs such as those described in Chapter 4 of this manual. 

8.1 SYSTEM REQUIREMENTS 

The user will need a Background/Foreground System DECtape. For those users who may not be familiar with the 
operations, or for those who may want detailed descriptions of the system Background/Foreground operations, the 
following references are suggested: 

BACKGROUND/FOREGROUND MONITOR SYSTEM PROGRAMMER’S REFERENCE MANUAL 
(DEC-9A-MRZB-D) 

PDP- 15/20 ADVANCED MONITOR SOFTWARE SYSTEM (DEC-15-MR3A-D) 

PDP-15/40 Disk-Oriented BACKGROUND/FOREGROUND MONITOR Software System (DEC-15-MR4A-D) 

8.2 CONTROLS AND COMMANDS 
For Multi-user FOCAL: 

1. DATA Commands are illegal, except for single-user FOCAL. 

2. The TRACE Feature (see Section 3. 15, Chapter 3) is not used. 

3. The FCORE Command, which reserves core for FOCAL in the Foreground, is part of the loading 
procedure. The amount of assigned free core will determine the size of the FOCAL program that can be 
run. Free core will be assigned a value in default of the FCORE command and is estabhshed during system 
generation. Free core needed to run three of the sample programs from Chapter 4 follows: 


FOCAL 

No. of DEC- 

No. of State- 

FCORE Cells to 

Program 

tape blocks 

ments... decimal 

Run... octal 

CIRCLE 

1 

13 

300 

LOAN 

3 

33 

1000 

SCHROEDINGER 

4 

49 

1200 


8.3 SYSTEM LOADING 

The Background /Foreground Monitor system is loaded before the .DAT slots are assigned. 
To load Monitor: 

a. In disk systems, the Monitor and system programs are assumed to be on unit 0. 

b. In DECtape systems, mount the system tape on DECtape unit 8 (i.e. 0) and then 

• Load the appropriate paper tape bootstrap in the Reader. 
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• Momentarily depress Reader TAPE FEED pushbutton to clear end-of-tape flag. 

• Set console address switches as follows: 


If you have a - 

16K System 
24K System 
32K System 
Bootstrap Restart 


Set switches to - 

37637 
57637 
77637 
ill (octal) 


Press and release in sequence, the console STOP, I/O RESET, and READ IN switches. 

When loaded, the Monitor identifies itself and indicates its readiness by outputting the following message on the 
Foreground control teletype (normally unit 1): 

FKM15 V3A 
$ 

After Monitor identifies itself in the Foreground, an IDLE job is loaded. Loading the IDLE job in the Foreground 
allows control to pass to the Background and the Non-resident Monitor is loaded into core. At that point the 
Monitor identifies itself on the Background control teletype as 

BKM15 V3A 

$ 

and the user can begin to make the .DAT slot assignments and to start the FOCAL loading operations. 

8.4 .DAT SLOT USAGE 


The .DAT slot assignments vary according to the number of users and whether the user operates in the Background 
or Foreground. Beyond the assignments necessary to meet these requirements, .DAT slots for FOCAL library 
input/output and for the system are needed. 

Following is the .DAT slot usage for two and for four users and following that are sample loading and .DAT slot 
assignments for single- and two-user FOCAL in the Foreground and in the Background. 

Note that an IDLE job is loaded in the Foreground before Background is loaded. Also note that the FCORE 
command is not used in the Background and that, although not echoed by the Teletype, the ALTMODE key must 
be depressed after 

> ^ FOCAL 

is typed. 


.DAT Slot Usage 


Two User 

.DAT+1 TTA I/O for user #1 
.DAT+2 BULK STORAGE I/O for user #1 
.DAT+3 TTA I/O for user #2 
.DAT+4 BULK STORAGE for user #2 

8.5 LOADING FOCAL IN THE FOREGROUND 


Four User 

Same as for two user plus: 

.DAT+5 TTA I/O for user #3 

.DAT+6 BULK STORAGE I/O for user #3 

.DAT+7 TTA I/O for user #3 

.DAT+i0 BULK STORAGE I/O for user #4 


Single User 


FKM15 V3A 

roToi 


$A 


-4 


LdkoJ 

$A DTI 3 
SADTl 5 
$A DT3 7 
$ADT3 10 


/FOCAL is on system tape 

/Library input to FOCAL 
/Library output to FOCAL 
/Data input 
/Data output 
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SFCORE 1400t 
SGLOAD 
FGLOAD Vnn 
> ^ FOCAL 
FOCAL Vnn 


Two User 


FKM15 V3A 


$A 


DT0 

DK0 


-4 


SATTl 1 
SADTl 2 
$A TT2 3 
$A DT2 4 
SFCORE 3000 
SGLOAD Vnn 
FGLOAD Vnn 
> ^ FOCAL 2 
FOCAL Vnn 


/Free core for FOCAL buffer 
/Call Loader to LOAD-and-GO 
/Loader is in core 

/Load FOCAL and its Library, FNEW 

/FOCAL is in core and is ready to accept commands 


/FOCAL is on system tape 

/Teletype for user #1 

/Library I/O for user #1 

/Teletype for user #2 

/Library I/O for user #2 

/Assign 1400 (octal) locations for each user 

/Call Loader to LOAD-and-GO 

/Loader is in core 

/Load two-user FOCAL and its Library, FNEW 
/FOCAL is in core and will identify itself on each 
user’s teletype 


Once the Monitor identifies itself in the Foreground, the user can load an IDLE job in the Foreground as follows: 


FKM9 VIA 


$A 


DTA0 

DKA0 


-4 


SGLOAD 
FGLOAD VIA 
> ^ IDLE (ALTMODE) 


/The program “IDLE” is on unit 

/0 of the system device 

/Call the Loader to LOAD-and-GO 

/The Loader is in core 

/Load “IDLE BIN”. 


When IDLE is loaded, no indication is given on the Foreground control Teletype. Control passes to the Background 
and the Non-resident Monitor is loaded into core. The Monitor identifies itself on the Background control Teletype 
as: 


BKM9 V 1 A /The Monitor is now ready to 

$ /accept background commands. 

8.6 LOADING FOCAL IN THE BACKGROUND 


The .DAT slots are as shown except the user should make certain that assignments for the Teletypes and mass 
storage units are different from those used in the Foreground. 

Single User 


BKM15 V3A 
DT0 


$A 

■ DK0 
$A DT2 3 


-4 


/FOCAL is on system tape 


/Library input to FOCAL 


fThis may be varied, but 1400 (8) is considered a reasonable amount for text, push down lists, and variable storage. 
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$A DT2 5 /Library output to FOCAL 

$A DT4 7 /Data input 

$A DT4 10 /Data output 

FCORE NOT USED IN THE BACKGROUND 
SGLOAD /Call Loader to LOAD-and-GO 

FGLOAD Vnn /Loader is in core 

> FOCAL /Load FOCAL and its Library, FNEW 

FOCAL /FOCAL is in core and is ready to accept commands 

* 


BACKGROUND 


Two User 

BKM15 VBA 
DT0 

$A -4 /FOCAL is on system tape 

DK0 

$A TTl /Teletype for user #1 

$A DT2 /Library I/O for user #1 

$A TT3 /Teletype for user #2 

$A DT4 /Library I/O for user #2 

FCORE command not used in the Background 
SGLOAD /Call Loader to LOAD-and-GO 

FGLOAD /Loader is in core 

> FOCAL 2 /Load two-user FOCAL and its Library, FNEW 

FOCAL Vnn /FOCAL is in core and will identify itself 

/on each user’s teletype 

* 


After FOCAL’s *, users can begin to run FOCAL programs. 
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APPENDIX A 
FOCAL COMMAND SUMMARY 


Command 

Abbreviation 

Example of Form 


ASK 

A 

ASK X,Y,Z 

FOCAL types a colon for each variable; user 
then types a value to define each variable. 

COMMENT 

C 

COMMENT 

If a line begins with the letter C, the 
remainder of the line is ignored during 
program execution. 

CONTINUE 

C 

C 

Dummy lines. 

COMMON 

none 

COMMON A, B,(C, 1,2, 20) 

Assigns COMMON variables to be stored in 
indirect program. 

DO 

D 

DO 4.1 

Execute line 4.1; return to command 
following DO command. 



DO 4.0 

Execute all group 4 lines; return to command 
following DO command, or when a RETURN 
is encountered. 



DO ALL 

Execute entire indirect program. 

ERASE 

E 

ERASE 

Erases line 2.1 t- 



ERASE 2.0 

Erases all user input f. 



ERASE 2.1 

Erases all COMMON variables. 



ERASE ALL 

Deletes all user input f . 



ERASE COMMON 

Deletes all COMMON variables. 

FOR 

F 

FOR I=X,Y,Z;( commands) 

Where the command following is executed at 
each new value. 




X=initial value of I 




Y = value added to I until I is greater than Z. 

Y = 1, if not defined. 


t Has no effect on COMMON variables 
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Command 

Abbreviation 

Example of Form 

Explanation 

GO 

G 

GO 

Starts indirect program at lowest numbered 
line number. 

GO? 

G? 

GO? 

1 

1 

Starts at lowest numbered line number and 
traces entire indirect program until another 
question mark (?) or an error is encountered, 
or until completion of program. 

GOTO 

G 

GOTO 3.4 

Starts indirect program (transfers control to 
line 3.4); must have argument. 

IF 

I 

IF (X)Ln, Ln, Ln | 

IF (X)Ln, Ln; (commands) 

Where X is a defined identifier, a value or an 
expression, followed by three 
numbers/commands. 



IF (X)Ln; (commands) 

If X is less than zero, control is transferred to 
the first line number. 




If X is equal to zero, control is transferred to 
the second line number or command. 




If X is greater than zero, control is transferred 
to the third line number or command. 

LIBRARY 

L 

LIBRARY OUT NAME 

Initializes a file on the output device. 



LIBRARY WRITE NNN 

Inserts NNN in library output file. 



LIBRARY WRITE 2.01 

Inserts line 2.01 in output file. 

! 


LIBRARY WRITE 2.00 

Inserts group 2 lines in library output file. 



LIBRARY WRITE ALL 

Inserts entire indirect program in library 
output file. 



LIBRARY CLOSE 

Causes file name to be entered in directory. 



LIBRARY KILL 

Returns user to command mode & file is 
deleted. 



LIBRARY IN NAME 

Loads library file NAME. 

DATA 

None 

DATA OUT NAME 

Initializes the device assigned to .DAT 10 and, 
if file-oriented, enters the filename in the file 
directory. 



DATA CLOSE NAME 

Closes the output file and returns the user to 
the teletype mode. 



DATA KILL 

Aborts the output file and returns the user to 
the teletype mode. 
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Command 

Abbreviation 

Example of Form 

Explanation 



DATA IN NAME 

Initializes the device assigned to .DAT 7 and 
reads in the file named. 

MODIFY 

M 

MODIFY 1.15 

Enables editing of any character on line 1.15 
(see below). 

QUIT 

Q 

QUIT 

Returns control to the user. 

RETURN 

R 

RETURN 

Terminates DO subroutines, returning to the 
original sequence. 

SET 

S 

SET A=5/B*C 

Defines identifiers in the symbol table. Each 
occurrence of A is replaced by the value of 
the expression. 

TYPE 

T 

TYPE A + B - C 

Evaluates expression and types out result in 
current output format. 



TYPE A-B, C/E 

Computes and types each expression 
separated by commas. 

1 


TYPE “TEXT STRING” 

Types text; can be followed by exclamation 
point (!) to generate carriage return-line feed 
or by # to generate carriage return only. 

WRITE 

W 

WRITE 

WRITE ALL 

FOCAL types out the entire indirect program. 



WRITE 1.0 

FOCAL types out all group 1 lines. 



WRITE 1.1 

FOCAL types out line 1.1. 


FOCAL Operations 



Operation 

Command 

Explanation 

To set output format 

TYPE %x.yz 

Where x is the total number of digits, and yz 
is the number of digits to the right of the 
decimal point. 


TYPE%6.3, 123.456 

FOCAL types: 123.456 


TYPE % 

Resets output format to floating point. 

To type symbol table 

TYPE $ 

Other statements may not follow on this line. 

To produce carriage 
return - line feed 

I 


Carriage return only 

# 










Modify Operations 

After a MODIFY command, the user types a search character, and FOCAL types out the contents of that line until 
the search character is typed. The user can then perform any of the following optional operations. 

a. Type in new characters. FOCAL adds these to the line at the point of insertion. 

b. Type an ALT MODE. FOCAL proceeds to the next occurrence of the search character. 

c. Type a CTRL BELL. After this, the user can change the search character. 

d. Type RUBOUT. This deletes characters to the left: one character for each time the user strikes the 
RUBOUT key. 

e. Type CTRL U. Deletes the line over to the left margin, but not the line number. 

f. Type RETURN. Terminates the line, deleting characters over to the right margin. 

g. Type LINE FEED. Saves the remainder of the line from the point at which LINE FEED is typed over to 
the right margin. 

Summary of Internal Functions 


Function 

FOCAL Representation 

Operation 

Square Root 

FSQT(x) 

Where x is a positive number or expression 
greater than zero. 

Absolute Value 

FABS(x) 

FOCAL ignores the sign of x. 

Sign Part 

FSGN(x) 

FOCAL evaluates the sign part only with 1 as 
integer 

Integer Part 

FITR(x) 

FOCAL operates on the integer part of x, 
ignoring any fractional part. 

Random Number 
Generator 

FRAN ( ) 

FOCAL generates a random number. 

Exponential 
Function (e^) 

FEXP(x) 

FOCAL generates e to the power x. 
(2.718281828X). 

Sine 

FSIN(x) 

FOCAL generates the sine of angle x expressed 
in radians. 

Cosine 

FCOS(x) 

FOCAL generates the cosine of angle x expressed 
in radians. 

Arc Tangent 

FATN(x) 

FOCAL generates the arc tangent of angle x ex- 
pressed in radians. 

Logarithm 

FLOG(x) 

FOCAL generates loge(x). 
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APPENDIX B 
ERROR DIAGNOSTICS 


CODE 

MEANING 

?00 

Function not implemented 

?01 

Illegal character at beginning of line 

?02 

Group number illegal as line number 

?03 

Group number too large 

?04 

Illegal type/ask format 

?05 

Too many periods 

?06 

Line number too large 

?07 

Line number missing 

?08 

Illegal group number 

?09 

Push-down list overflow 

?10 

Illegal command 

?11 

Illegal IF format 

?12 

Left of equals in error on FOR or SET 

?13 

Excess right parenthesis 

?14 

Illegal FOR format 

?15 

Illegal variable name 

?16 

Text/variable buffer overflow 

?17 

Illegal expression format 

?18 

Operator missing before parenthesis 

?19 

Missing left parenthesis 

?20 

Illegal function name 

?21 

Double operator 

?22 

Parenthesis error 

?23 

ERASE or WRITE argument error 

?24 

Negative line number 

?25 

Zero argument for log 

?26 

Input overflow 

?27 

Number too large 

?28 

Negative power illegal 

?29 

Division by zero illegal 

?30 

Square root of a negative number 

?31 

Illegal command during library or data output 

?32 

Illegal library command 

?33 

Illegal file name 

?34 

File not found 

?35 

No file open 

?36 

.OTS error from arithmetic package 

?37 

COMMON statement format error 

??nn 

User defined function error 


CHANGE 1 
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APPENDIX C 

ESTIMATING THE LENGTH OF USER PROGRAMS 


FOCAL requires five words for each identifier stored in the symbol table, and one word for each three characters 
of stored program. This may be calculated by 

c 

5s+( - • 1 .01) = length of user’s program 
where: s = Number of identifiers defined 


c = Number of characters in indirect program 

If the total program area or symbol table area becomes too large, FOCAL types the error message 


?16 


The following routine allows the user to find out how many core locations remain for his use. 


^FOR 1 = 1 ^ 5000 ; 
? 16 

*TYPE %A^ 1*5^ 

8160LOCATIOi\IS 


SET A(I)=I 

(Wait for FOCAL to type the error message.) 

’’LOCATIONS LEFT” 

LEFT* 


At the end of this routine, use ERASE to clear all the variables A(I) from the symbol table. 


NOTE 

The upper hmit on I varies with the amount of core memory 
in the user’s system. 
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APPENDIX D 

CALCULATING TRIGONOMETRIC FUNCTIONS 


Function 

FOCAL 

Representation 

Argument 

Range 

Function 

Range 

Sine 

FSIN(A) 

0<|A|<10t4 

(KlFKl 

Cosine 

FCOS(A) 

0<|Ai<10t4 

(XiFKl 

Tangent 

FSIN(A)/FCOS(A) 

0<|A|<10t4 

lA|^(2N+l)7r/2 

(KIFKlOtb 

Secant 

l/FCOS(A) 

0<|A|<10t4 

|A|#(2N+l>r/2 

l<|F|<10t6 

Cosecant 

1/FSIN(A) 

0<|A|<10t4 

lA|'A2N7r 

l<lF|<10t6 

Cotangent 

FCOS(A)/FSIN(A) 

0<|A|<10t4 

|A|¥=2N7r 

(K|F|<10t440 

Arc sine 

FATN(A/FSQT(1-At2) 

(KIAKl 

(K|FK5r/2 

Arc cosine 

FATN(FSQT(1-At2)/A) 

0<|A|<1 

0<|FK7r/2 

Arc tangent 

FATN(A) 

0<A<10t6 

0<F<7r/2 

Arc secant 

FATN(FSQT(At2-l)) 

l<A<i0t6 

(KF<7r/2 

Arc cosecant 

FATN(l/FSQT(At2-l)) 

l<A<10t300 

0<F<7r/2 

Arc cotangent 

FATN(1/A) 

0<A<10t615 

CKF<ir/2 

Hyperbolic sine 

(FEXP(A)-FEXP(-A))/2 

(KIAK700 

(K|FK5*10t300 

Hyperbolic cosine 

(FEXP(A)+FEXP(-A))/2 

(XIAKTOO 

l<F<5*10t300 

Hyperbolic tangent 

(FEXP(A)-FEXP(-A))/ 

(FEXP(A)+FEXP(-A)) 

(KiAKVOO 

(XIFKl 

Hyperbolic secant 

2/(FEXP(A)+FEXP(-A)) 

0<|A|<700 

(KF<1 

Hyperbolic cosecant 

2/(FEXP(A)-FEXP(-A)) 

0<|AK700 

0<|F|<10t7 

Hyperbolic cotangent 

(FEXP(A)+FEXP(-A))/ 

(FEXP(A)-FEXP(-A)) 

0<|A|<700 

l<lF|<10t7 

Arc hyperbolic sine 

FLOG (A+FSQT(At2+l)) 

-10t5<A<10t600 

-12<F<1300 

Arc hyperbolic cosine 

FLOG (A+FSQT(At2-l)) 

l<A<10t300 

0<F<700 

Arc hyperbolic tangent 

(FLOG( l+A)-FLOG( 1 -A))/2 

(XIAKl 

0<1F|<8.31777 

Arc hyperbolic secant 

FLOG(( 1 /A)+FSQT(( 1 /At 2)- 1 )) 

(KIAKl 

(XF<700 

Arc hyperbolic 

cosecant 

FLOG(( 1 /A)+FSQT(( 1 /At 2)+ 1 )) 

(K|A|<10t300 

(K|F1<1400 

Arc hyperbolic 
cotangent 

(FLOG(X+ 1 )-FLOG(X- 1 ))/2 

l<A<10t616 

0<F<8 
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APPENDIX E 

SLOT AND HANDLER ASSIGNMENTS 
.DAT IN KEYBOARD MONITOR SYSTEM 


The .DAT slots to be assigned with FOCAL are 

- 1 System library 

- 4 FOCAL (XCT, XCU) 

FOCAL binary program 
3 Library input 

5 Library output 

7 Data input 

1 0 Data output 

Handler assignements depend on the user’s peripheral devices. Handler E is used when DECtape input /output is 
desired for FOCAL programs, as in the assignment: 

$ADTE0-1, -4/DTE 1 3,5,7,10 

When Disk input/output is desired the Handler is also E and the assignment is 
$A DKE0 -1, -4/DKEl 3,5,7,10 

When paper tape is used to load FOCAL (as described in Chapter 1) to operate under the control of the Basic I/O 
Monitor system the .DAT slot assignments are 

$A PRA-l,-4,3,7/PPA5,10 
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PDP-15 FOCAL 
PROGRAMMING MANUAL 
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READER’S COMMENTS 


Digital Equipment Corporation maintains a continuous effort to improve the quality and usefulness of its 
publications. To do this effectively we need user feedback — your critical evaluation of this manual. 


Please comment on this m-anual’s completeness, accuracy, organization, usability, and readability. 


Did you find errors in this manual? 


How can this manual be improved? 


DEC also strives to keep its customers informed of current DEC software and publications. Thus, the fol- 
lowing periodically distributed publications are available upon request. Please check the appropriate boxes 
for a current issue of the publication(s) desired. 

r~| Software Manual Update, a quarterly collection of revisions to current software manuals. 
r~| User’s Bookshelf, a bibliography of current software manuals. 

rn Program Library Price List, a list of currently available software programs and manuals. 


Please describe your position. 


Name Organization 

Street Department 

City State Zip or Country 
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